home *** CD-ROM | disk | FTP | other *** search
/ Software USA 5 #2 / Software USA Volume 5.02.iso / mac / home&office / 2 / GEDitCOM Formats / Default GEDitCOM Format < prev    next >
Text File  |  1998-12-01  |  55KB  |  3,561 lines

  1. @@GeDF@@_Unknown_ Printing
  2. ! static text with level and tab
  3. newline
  4. get *name
  5. if
  6.   style static
  7.   text *lev
  8.   text " "
  9.   text *tag
  10. else
  11.   style label
  12.   text *it
  13. endif
  14. text :
  15. get #rtjs
  16. if 1
  17.   justify right
  18. endif
  19. tabwidth 2
  20.  
  21. ! edit field with value
  22. hskip 5
  23. style editvalue
  24. width -1
  25. newline
  26. @@GeDF@@Individual Events
  27. BIRT Birth
  28. CHR Christening
  29. DEAT Death
  30. BURI Burial
  31. CREM Cremation
  32. ADOP Adoption
  33. BAPL LDS Baptism
  34. BAPM Baptism
  35. BARM Bar Mitzvah
  36. BASM Bas Mitzvah
  37. BLES Blessing
  38. CAST Caste Name
  39. CENS Census
  40. CHRA Adult Christening
  41. CONF Confirmation
  42. CONL LDS Confirmation
  43. DSCR Physical Description
  44. EDUC Education
  45. EMIG Emigration
  46. ENDL LDS Endowment
  47. EVEN Generic Event
  48. FCOM First Communion
  49. GRAD Graduation
  50. IDNO National ID Number
  51. IMMI Immigration
  52. NATI National or Tribal Origin
  53. NATU Naturalization
  54. NCHI Number of Children
  55. NMR Count of Marriages
  56. OCCU Occupation
  57. ORDN Ordination
  58. PROB Probate
  59. PROP Possessions
  60. RELI Religious Affiliation
  61. RETI Retirement
  62. RESI Residence
  63. SLGC LDS Child Sealing
  64. SSN Social Security Number
  65. TITL Nobility Type Title
  66. WILL Will
  67. @@GeDF@@Family Events
  68. ANUL Annulment
  69. CENS Census
  70. DIV Divorce
  71. DIVF Divorce Filed
  72. EVEN Generic Event
  73. ENGA Engagement
  74. SLGS LDS Spouse Sealing
  75. MARB Marriage Bann
  76. MARC Marriage Contract
  77. MARL Marriage License
  78. MARR Marriage
  79. MARS Marriage Settlement
  80. NCHI Number of Children
  81. @@GeDF@@GEDCOM Tag Names
  82. ABBR Short Title
  83. ADOP Adoption
  84. ADR1 Address Line 1
  85. ADR2 Address Line 2
  86. AGE Age
  87. AGNC Agency
  88. ANCE Gens. of Ancestors
  89. ANUL Anulment
  90. AFN Ancest. File No.
  91. BAPL LDS Baptism
  92. BAPM Baptism
  93. BARM Bar Mitzvah
  94. BASM Bas Mitzvah
  95. BLES Blessing
  96. BURI Burial
  97. CALN Call Number
  98. CAST Caste Name
  99. CAUS Cause
  100. CENS Census
  101. CHAR Character Set
  102. CHR Christ'ing
  103. CHRA Adult Chr
  104. CITY City
  105. CONF Confirmation
  106. CONL LDS Confirmation
  107. COPR Copyright
  108. CORP Corporation
  109. CREM Cremation
  110. CTRY Country
  111. DATE Date
  112. DEAT Death
  113. DESC Gens. of Descendents
  114. DEST Dest File
  115. DIV Divorce
  116. DIVF Div. Filed
  117. DSCR Physical Descrip.
  118. EMIG Emigration
  119. ENGA Engaged
  120. ENDL LDS Endowment
  121. EVEN Event
  122. EDUC Education
  123. FAMF Family File
  124. FCOM First Communion
  125. FILE File
  126. FORM Form
  127. GIVN Given
  128. GRAD Graduation
  129. IDNO Nat. ID No.
  130. IMMI Immigrat'n
  131. LANG Language
  132. MARB Marr. Bann
  133. MARC M. Contract
  134. MARL M. License
  135. MARR Marriage
  136. MARS Settlement
  137. MEDI Media Type
  138. NATI Nationality
  139. NATU Nat'rlized
  140. NCHI No. of Children
  141. NICK Nickname
  142. NMR No. of Marriages
  143. NPFX Prefix
  144. NSFX Suffix
  145. OCCU Occupation
  146. ORDI Ord. Process Flag
  147. ORDN Ordination
  148. PAGE Page
  149. PEDI Pedigree
  150. PHON Phone No.
  151. PLAC Place
  152. POST Postal Code
  153. PROB Probate
  154. PROP Possessions
  155. QUAY Quality
  156. REFN User Ref. No.
  157. RELA Relationship
  158. RELI Religion
  159. RESI Residence
  160. RESN Restriction
  161. RETI Retirement
  162. RFN Record File No.
  163. RIN Record ID
  164. SLGC LDS Child Sealing
  165. SLGS LDS Spouse Sealing
  166. SPFX Sur Prefix
  167. SSN Soc. Sec. No.
  168. STAE State
  169. STAT Status
  170. SURN Surname
  171. TEMP Temple
  172. TITL Title
  173. TIME Time
  174. TYPE Type
  175. VERS Version
  176. WILL Will
  177. @@GeDF@@@WindowRects
  178. 23 51 511 463
  179. 50 111 526 438
  180. 112 165 513 420
  181. 90 69 505 461
  182. 33 107 443 470
  183. 63 183 512 342
  184. 14 171 411 380
  185. 67 206 448 434
  186. 57 158 506 302
  187. 51 106 566 469
  188. 4 42 365 472
  189. 21 55 637 474
  190. 85 47 546 398
  191. 76 151 426 474
  192. 33 107 499 421
  193. @@GeDF@@@Tree Preferences
  194. 0 @PREF@ @TRE
  195. 1 @STY Name
  196. 2 @FNT Helvetica
  197. 2 @SZE 9
  198. 2 @FCE Plain
  199. 1 @STY Title
  200. 2 @FNT Helvetica
  201. 2 @SZE 10
  202. 2 @FCE Bold
  203. 1 @CLR Males
  204. 2 @RGB 3276 48495 63568
  205. 1 @CLR Females
  206. 2 @RGB 63568 41942 59636
  207. 1 @NUM Short Box Width
  208. 2 @VAL 67
  209. 1 @NUM Full Box Width
  210. 2 @VAL 120
  211. 1 @NUM Box Height
  212. 2 @VAL 25
  213. 1 @NUM Box Separation
  214. 2 @VAL 10
  215. 1 @NUM Line Separation
  216. 2 @VAL 8
  217. 1 @NUM Top Margin
  218. 2 @VAL 5
  219. 1 @NUM Left Margin
  220. 2 @VAL 5
  221. 1 @TXT Box Style
  222. 2 @TVL Simple Box
  223. 1 @TXT Name Display
  224. 2 @TVL Name & Lifepan 2 Lines
  225. 1 @CKB Full Names
  226. 2 @CVL N
  227. 1 @CKB Use Color
  228. 2 @CVL Y
  229. 1 @VRS 1
  230. @@GeDF@@@Index Preferences
  231. 0 @PREF@ @IDX
  232. 1 @STY Index
  233. 2 @FNT Times
  234. 2 @SZE 12
  235. 2 @FCE Plain
  236. 2 @CLR Color
  237. 3 @RGB 0 0 0
  238. 1 @CKB Require Double Clicks
  239. 2 @CVL N
  240. 1 @IPU Clicking Opens
  241. 2 @IPV Y
  242. 1 @IPU Shift-Clicking Opens
  243. 2 @IPV N
  244. 1 @VRS 1
  245. @@GeDF@@_Unknown_ Editing
  246. ! static text with level and tab
  247. newline
  248. get *name
  249. if
  250.   style static
  251.   text *lev
  252.   text " "
  253.   text *tag
  254.   text " "
  255. else
  256.   style label
  257.   text *it
  258.   text :
  259. endif
  260. tabwidth 2
  261. justify right
  262.  
  263. ! edit field with value
  264. hskip 5
  265. style editvalue
  266. border 3Dfield
  267. width -1
  268. newline
  269. @@GeDF@@@Editing Preferences
  270. 0 @PREF@ @EDT
  271. 1 @STY Editing
  272. 2 @FNT Times
  273. 2 @SZE 12
  274. 2 @FCE Plain
  275. 2 @CLR Color
  276. 3 @RGB 0 0 0
  277. 1 @STY Labels
  278. 2 @FNT Times
  279. 2 @SZE 12
  280. 2 @FCE Bold
  281. 2 @CLR Color
  282. 3 @RGB 0 0 0
  283. 1 @STY Static
  284. 2 @FNT Times
  285. 2 @SZE 12
  286. 2 @FCE Italic
  287. 2 @CLR Color
  288. 3 @RGB 0 0 0
  289. 1 @STY Buttons
  290. 2 @FNT Geneva
  291. 2 @SZE 9
  292. 2 @FCE Plain
  293. 2 @CLR Color
  294. 3 @RGB 9972 9972 9972
  295. 1 @CLR Revision
  296. 2 @RGB 65000 0 0
  297. 1 @CLR Background
  298. 2 @RGB 65535 57015 53083
  299. 1 @CLR Field Top
  300. 2 @RGB 30146 15073 10485
  301. 1 @CLR Field Bottom
  302. 2 @RGB 65535 64224 62918
  303. 1 @CLR Button
  304. 2 @RGB 58940 59022 59022
  305. 1 @CLR Button Top
  306. 2 @RGB 62258 62258 62258
  307. 1 @CLR Button Bottom
  308. 2 @RGB 42597 42597 42597
  309. 1 @NUM Line Separation
  310. 2 @VAL 4
  311. 1 @NUM Left Margin
  312. 2 @VAL 4
  313. 1 @NUM Min Edit Lines
  314. 2 @VAL 5
  315. 1 @NUM Max Edit Lines
  316. 2 @VAL 10
  317. 1 @NUM Button Corners
  318. 2 @VAL 8
  319. 1 @CKB Date mm/dd/yy
  320. 2 @CVL Y
  321. 1 @CKB Track Changed Dates
  322. 2 @CVL Y
  323. 1 @CKB Create User ID
  324. 2 @CVL N
  325. 1 @VRS 1
  326. @@GeDF@@INDI Record Editing
  327. settab 72
  328. settab 112
  329. settab 165
  330.  
  331. ! father button
  332. style button
  333. text Father
  334. menulink View:Father
  335. justify center
  336. border 3Dbutton
  337.  
  338. hskip 5
  339. style button
  340. text Mother
  341. menulink View:Mother
  342. justify center
  343. border 3Dbutton
  344.  
  345. hskip 5
  346. style button
  347. text Spouse
  348. menulink View:Spouse
  349. justify center
  350. border 3Dbutton
  351.  
  352. hskip 5
  353. style button
  354. text Children
  355. menulink View:Children
  356. justify center
  357. border 3Dbutton
  358.  
  359. hskip 5
  360. style button
  361. text Ancestors
  362. menulink Tree:Ancestor Tree
  363. justify center
  364. border 3Dbutton
  365.  
  366. hskip 5
  367. style button
  368. text Descendants
  369. menulink Tree:Descendant Tree
  370. justify center
  371. border 3Dbutton
  372. newline 2
  373.  
  374. show NAME INDI
  375. show SEX
  376. hskip 5
  377. show RESN here
  378. endtoolbar 2
  379. newline 3
  380. show BIRT
  381. show DEAT
  382. showall FAMS
  383. showall FAMC
  384.  
  385. ! events
  386. 3dhrule
  387. newline -2
  388. style label
  389. width 150
  390. Text Events/Attributes
  391.  
  392. hskip 0
  393. style button
  394. justify center
  395. border 3Dbutton
  396. menulink Attach:Event/Attribute
  397. Text "Attach Event/Attribute"
  398. width 150
  399.  
  400. leftskip 15
  401. newline
  402. showall BAPM
  403. showall CHR
  404. showall BLES
  405. showall BARM
  406. showall BASM
  407. showall ADOP
  408. showall CHRA
  409. showall CONF
  410. showall FCOM
  411. showall ORDN
  412. showall GRAD
  413. showall EMIG
  414. showall IMMI
  415. showall NATU
  416. showall CENS
  417. showall RETI
  418. showall PROB
  419. showall BURI
  420. showall WILL
  421. showall CREM
  422. showall EVEN
  423. showall BAPL
  424. showall CONL
  425. showall ENDL
  426. showall SLGC
  427.  
  428. ! attributes
  429. leftskip #dlmg
  430. newline
  431. showall OCCU
  432. showall EDUC
  433. showall DSCR
  434. showall RELI
  435. showall RESI
  436. showall SSN
  437. showall IDNO
  438. showall PROP
  439. showall CAST
  440. showall NCHI
  441. showall NMR
  442. showall TITL
  443. 3dhrule
  444.  
  445. !Multimedia
  446. ifhastags OBJE
  447.   newline -2
  448.   style label
  449.   text Multimedia Links
  450.   tabwidth 2
  451.   hskip 5
  452.   showall OBJE
  453.   3dhrule
  454. endif
  455.  
  456. !Aliases
  457. set oldv #vpos
  458. leftskip 15
  459. ifhastags ALIA
  460.   lineskip 0
  461.   newline -3
  462.   style label
  463.   text Aliases:
  464.   width 50
  465.   hskip 2
  466.   leftskip 67
  467.   showall ALIA
  468.   leftSkip 15
  469.   newline 3
  470.   lineskip #dlsk
  471. endif
  472.  
  473. !Associations
  474. ifhastags ASSO
  475.   lineskip 1
  476.   newline -3
  477.   style label
  478.   text Associations:
  479.   width 84
  480.   hskip 2
  481.   leftskip 101
  482.   showall ASSO
  483.   leftSkip 15
  484.   newline 3
  485.   lineskip #dlsk
  486. endif
  487.  
  488. !Sources
  489. ifhastags SOUR
  490.   lineskip 0
  491.   newline -3
  492.   style label
  493.   text Sources:
  494.   width 55
  495.   hskip 2
  496.   leftskip 72
  497.   showall SOUR
  498.   leftSkip 15
  499.   newline
  500.   lineskip #dlsk
  501. endif
  502.  
  503. get #oldv
  504. if #vpos
  505.   newline -2
  506. else
  507.   newline 1
  508. endif
  509. show SOUR
  510. showall NOTE
  511. show NOTE
  512. show OBJE
  513. show SUBM
  514. showall SUBM
  515. show ANCI
  516. showall ANCI
  517. show DESI
  518. showall DESI
  519. show ALIA
  520. show ASSO
  521. leftSkip #dlmg
  522. @@GeDF@@NAME Editing
  523. ! start new line and label
  524. newline
  525. style label
  526. text Name:
  527. justify right
  528. tabwidth 1
  529.  
  530. ! edit name
  531. hskip 5
  532. style editvalue
  533. border 3Dfield
  534. get *msg
  535. if INDI
  536.   width 250
  537. else
  538.   width -1
  539. endif
  540. @@GeDF@@BIRT Editing
  541. ! New line and enter label
  542. newline
  543. style label
  544. justify right
  545. text Birth:
  546. tabwidth 1
  547.  
  548. ! show date and place
  549. show DATE
  550. show PLAC
  551.  
  552. ! Show notes and source
  553. leftSkip 120
  554. lineskip 0
  555. ifhastags SOUR
  556.   newline -1
  557.   style static
  558.   text Sources:
  559.   width 50
  560.   hskip 2
  561.   leftskip 172
  562.   showall SOUR
  563.   leftSkip 120
  564. endif
  565. newline
  566. show SOUR Birth
  567. show NOTE Birth
  568. lineskip #dlsk
  569. leftskip #dlmg
  570. @@GeDF@@DATE Editing
  571. ! label on current line
  572. get *msg
  573. ifempty
  574.   style label
  575.   text Date:
  576.   justify right
  577.   tabwidth 1
  578.  
  579.   ! edit the date
  580.   hskip 5
  581.   style editvalue
  582.   border 3Dfield
  583.   content date
  584.   width -1
  585. elseif Event
  586.   style label
  587.   text Date:
  588.   justify right
  589.   tabwidth 1
  590.  
  591.   ! edit the date
  592.   hskip 5
  593.   style editvalue
  594.   border 3Dfield
  595.   content date
  596.   set dwid #rmgn
  597.   sub dwid #hpos
  598.   sub dwid 85
  599.   width #dwid
  600. endif
  601. @@GeDF@@DEAT Editing
  602. ! start new line and label
  603. 3dhrule
  604. newline
  605. style label
  606. justify right
  607. text *name
  608. text :
  609. tabwidth 1
  610.  
  611. ! show date and place
  612. show DATE Event
  613. show AGE
  614. show PLAC
  615.  
  616. ! Show notes and source
  617. leftSkip 120
  618. lineskip 0
  619. ifhastags SOUR
  620.   newline -1
  621.   style static
  622.   text Sources:
  623.   width 50
  624.   hskip 2
  625.   leftskip 172
  626.   showall SOUR
  627.   leftSkip 120
  628. endif
  629. newline
  630. show SOUR *name
  631. show NOTE *name
  632. lineskip #dlsk
  633. leftskip #dlmg
  634. @@GeDF@@SEX Editing
  635. ! "Male" or "Female" static text
  636. hskip 10
  637. style static
  638. border 3dfield
  639. cellbg 0xD4 0xB4 0xA4
  640. justify center
  641. get *valu
  642. if M
  643.   text Male
  644. else
  645.   text Female
  646. endif
  647. width 40
  648. @@GeDF@@FAMS Editing
  649. ! marriage button
  650. 3dhrule
  651. newline
  652. hskip 10
  653. style button
  654. text Marriage Record
  655. link *valu
  656. justify center
  657. tabwidth 2
  658. border 3Dbutton
  659.  
  660. ! Spouse
  661. hskip 0
  662. tabwidth 1
  663. style static
  664. get *this.SEX
  665. if F
  666.   text Husband:
  667.   get *valu.HUSB
  668. else
  669.   text Wife:
  670.   get *valu.WIFE
  671. endif
  672. justify right
  673.  
  674. hskip 5
  675. style button
  676. font times
  677. size 12
  678. if validlink
  679.   text *it.NAME
  680.   link *it
  681.   blue
  682.   face underline
  683. else
  684.   text <unknown>
  685. endif
  686. width -1
  687. @@GeDF@@NOTE Editing
  688. if tagexists
  689.   style button
  690.   get *msg
  691.   ifnotempty
  692.     text *msg
  693.     text " "
  694.   endif
  695.   text Notes
  696.   get *valu
  697.   if validlink
  698.     link *valu
  699.   else
  700.     structlink NOTE
  701.   endif
  702. else
  703.   style button
  704.   text "New "
  705.   get *msg
  706.   ifnotempty
  707.     text *msg
  708.     text " "
  709.   endif
  710.   text Notes
  711.   if "Header"
  712.     structlink NOTE
  713.   else
  714.     newlink
  715.   endif
  716. endif
  717. justify center
  718. border 3Dbutton
  719. width 105
  720. hskip 5
  721. @@GeDF@@FAMC Editing
  722. ! parent family button
  723. 3dhrule
  724. newline
  725. hskip 10
  726. style button
  727. text Parents Family
  728. link *valu
  729. justify center
  730. tabwidth 2
  731. border 3Dbutton
  732.  
  733. ! Father
  734. hskip 0
  735. tabwidth 1
  736. style static
  737. text Father:
  738. justify right
  739.  
  740. hskip 5
  741. style button
  742. get *valu.HUSB
  743. font times
  744. size 12
  745. if validlink
  746.   text *it.NAME
  747.   link *it
  748.   blue
  749.   face underline
  750. else
  751.   text <unknown>
  752. endif
  753. width -1
  754.  
  755. ! Mother
  756. newline -5
  757. tab 2
  758. hskip 0
  759. tabwidth 1
  760. style static
  761. text Mother:
  762. justify right
  763.  
  764. hskip 5
  765. style button
  766. get *valu.WIFE
  767. font times
  768. size 12
  769. if validlink
  770.   text *it.NAME
  771.   link *it
  772.   blue
  773.   face underline
  774. else
  775.   text <unknown>
  776. endif
  777. width -1
  778. @@GeDF@@BAPM Editing
  779. use BURI Editing
  780. @@GeDF@@FAM Record Editing
  781. settab 72
  782. settab 112
  783. settab 216
  784. settab 432
  785.  
  786. hskip 5
  787. style button
  788. text Children
  789. menulink View:Children
  790. justify center
  791. border 3Dbutton
  792.  
  793. hskip 5
  794. style button
  795. text Index
  796. menulink View:Index...
  797. justify center
  798. border 3Dbutton
  799. endtoolbar 2
  800. newline 3
  801.  
  802. show HUSB
  803. show WIFE
  804. show MARR
  805.  
  806. ! children table
  807. newline 8
  808. lineskip 2
  809. hskip 15
  810. style label
  811. text Children
  812. tabwidth 3
  813. justify center
  814. border 3DField
  815. cellbg 0xD4 0xB4 0xA4
  816.  
  817. hskip 3
  818. style label
  819. justify center
  820. text Sex
  821. border 3DField
  822. width 55
  823. cellbg 0xD4 0xB4 0xA4
  824.  
  825. hskip 3
  826. style label
  827. justify center
  828. text Birthdate
  829. border 3DField
  830. width 110
  831. cellbg 0xD4 0xB4 0xA4
  832.  
  833. hskip 3
  834. style label
  835. justify center
  836. text Link
  837. border 3DField
  838. tabwidth 1
  839. cellbg 0xD4 0xB4 0xA4
  840.  
  841. set chnm 1
  842. showall CHIL
  843.  
  844. ! attach and detach buttoms
  845. lineskip #dlsk
  846. newline 2
  847. showall NCHI
  848.  
  849. hskip 15
  850. style button
  851. text "Attach Child"
  852. menulink Attach:Child
  853. border 3Dbutton
  854. justify center
  855.  
  856. hskip 5
  857. style button
  858. text "Detach Child"
  859. menulink Detach:Child
  860. border 3Dbutton
  861. justify center
  862.  
  863. ! events
  864. newline 8
  865. 3dhrule
  866. newline -2
  867. style label
  868. width 150
  869. Text Family Events
  870.  
  871. hskip 0
  872. style button
  873. justify center
  874. border 3Dbutton
  875. menulink Attach:Event/Attribute
  876. Text "Attach New Event"
  877. width 150
  878. newline
  879.  
  880. leftskip 15
  881. showall ENGA
  882. showall MARB
  883. showall MARC
  884. showall MARL
  885. showall MARS
  886. showall SLGS
  887. showall DIV
  888. showall DIVF
  889. showall ANUL
  890. showall CENS
  891. showall EVEN
  892.  
  893. ! attributes
  894. leftskip #dlmg
  895. 3dhrule
  896.  
  897. !Multimedia
  898. ifhastags OBJE
  899.   newline -2
  900.   style label
  901.   text Multimedia Links
  902.   tabwidth 2
  903.   hskip 5
  904.   showall OBJE
  905.   3dhrule
  906. endif
  907.  
  908. leftSkip 15
  909. ifhastags SOUR
  910.   lineskip 0
  911.   newline -1
  912.   style label
  913.   text Sources:
  914.   width 55
  915.   hskip 2
  916.   leftskip 72
  917.   showall SOUR
  918.   leftSkip 15
  919.   newline
  920.   lineskip #dlsk
  921. else
  922.   newline -1
  923. endif
  924. show SOUR
  925. showall NOTE
  926. show NOTE
  927. show OBJE
  928. show SUBM
  929. showall SUBM
  930. leftSkip #dlmg
  931. @@GeDF@@WIFE Editing
  932. ! label on current line
  933. newline
  934. style label
  935. text Wife:
  936. justify right
  937. tabwidth 1
  938.  
  939. ! display the name
  940. hskip 5
  941. style button
  942. get *valu.NAME
  943. ifnotempty
  944.   blue
  945.   face underline
  946.   font times
  947.   size 12
  948.   text *valu.NAME
  949.   link *valu
  950.   width 250
  951.  
  952.   hskip 5
  953.   get *valu.FAMC
  954.   if validlink
  955.     style button
  956.     text Parents
  957.     justify center
  958.     link *it
  959.     border 3dbutton
  960.   endif
  961.  
  962. else
  963.   text Attach Wife
  964.   justify center
  965.   border 3Dbutton
  966.   menulink Attach:Wife
  967.   width 100
  968.   hskip 150  
  969. endif
  970.  
  971. @@GeDF@@CHIL Editing
  972. ! link to child
  973. newline
  974. hskip 15
  975. style button
  976. blue
  977. face underline
  978. font times
  979. size 12
  980. text #chnm
  981. add chnm 1
  982. text ". "
  983. text *valu.NAME
  984. link *valu
  985. tabwidth 3
  986. border 3DField
  987.  
  988. hskip 3
  989. style static
  990. justify center
  991. get *valu.SEX
  992. if M
  993.   text Son
  994. else
  995.   text Daughter
  996. endif
  997. border 3DField
  998. width 55
  999.  
  1000. hskip 3
  1001. style static
  1002. justify center
  1003. text *valu.BIRT.DATE
  1004. border 3DField
  1005. width 110
  1006.  
  1007. hskip 3
  1008. get *valu.FAMS
  1009. if validlink
  1010.   style button
  1011.   text Family
  1012.   blue
  1013.   font times
  1014.   face underline
  1015.   size 12
  1016.   link *it
  1017.   justify center
  1018. else
  1019.   style static
  1020. endif
  1021. border 3DField
  1022. tabwidth 1
  1023. @@GeDF@@MARR Editing
  1024. ! start new line and label
  1025. 3dhrule
  1026. newline
  1027. style label
  1028. justify right
  1029. text *name
  1030. text :
  1031. tabwidth 1
  1032.  
  1033. ! show date and place
  1034. show DATE
  1035. show PLAC
  1036.  
  1037. ! Show notes and source
  1038. leftSkip 120
  1039. lineskip 0
  1040. ifhastags SOUR
  1041.   newline -1
  1042.   style static
  1043.   text Sources:
  1044.   width 50
  1045.   hskip 2
  1046.   leftskip 172
  1047.   showall SOUR
  1048.   leftSkip 120
  1049. endif
  1050. newline
  1051. show SOUR *name
  1052. show NOTE *name
  1053. lineskip #dlsk
  1054. leftskip #dlmg
  1055. @@GeDF@@ADDR Editing
  1056. ! parent family button
  1057. newline
  1058. style label
  1059. text Address:
  1060. justify right
  1061. tabwidth 1
  1062.  
  1063. hskip 5
  1064. style editcont
  1065. border 3Dfield
  1066. width -1
  1067. @@GeDF@@SUBM Record Editing
  1068. settab 80
  1069. settab 120
  1070. show NAME
  1071. show ADDR
  1072. show PHON
  1073. show LANG
  1074.  
  1075. !Multimedia
  1076. ifhastags OBJE
  1077.   3dhrule
  1078.   newline -2
  1079.   style label
  1080.   text Multimedia:
  1081.   tabwidth 1
  1082.   justify right
  1083.   hskip 5
  1084.   showall OBJE
  1085. endif
  1086.  
  1087. tab 1
  1088. hskip 5
  1089. show OBJE
  1090. @@GeDF@@SUBM Editing
  1091. style button
  1092. get *valu
  1093. ifnot validlink
  1094.   text "Link "
  1095. endif
  1096. text *msg
  1097. text Submitter
  1098. addlink
  1099. justify center
  1100. width 105
  1101. border 3Dbutton
  1102. hskip 5
  1103. @@GeDF@@NOTE Record Editing
  1104. style label
  1105. text "Notes on "
  1106. get *this.NAME
  1107. ifempty
  1108.   text *this.HUSB.NAME
  1109.   text " / "
  1110.   text *this.WIFE.NAME
  1111.   text " Marraige"
  1112. else
  1113.   text *it
  1114. endif
  1115. width -1
  1116. newline -4
  1117. style edittext
  1118. @@GeDF@@REPO Record Editing
  1119. show NAME
  1120. show ADDR
  1121. newline
  1122. tab 1
  1123. hskip 5
  1124. show NOTE Repos.
  1125. newline
  1126. @@GeDF@@AUTH Editing
  1127. newline
  1128. style label
  1129. text Author:
  1130. justify right
  1131. tabwidth 1
  1132.  
  1133. hskip 5
  1134. style editcont
  1135. border 3Dfield
  1136. width -1
  1137. @@GeDF@@TITL Editing
  1138. get *msg
  1139. ifempty
  1140.   get #vpos
  1141.   if #oldv
  1142.     3dhrule
  1143.     newline -4
  1144.     style label
  1145.     width -1
  1146.     Text Individual Attributes
  1147.     newline -4
  1148.     3dhrule
  1149.   endif
  1150.  
  1151.   ! static text with level and tab
  1152.   newline
  1153.   style label
  1154.   text *name
  1155.   text :
  1156.   tabwidth 2
  1157.   justify right
  1158.  
  1159.   ! edit field with value
  1160.   hskip 5
  1161.   style editvalue
  1162.   border 3Dfield
  1163.   width -1
  1164.  
  1165. elseif mm
  1166.   newline
  1167.   style label
  1168.   text Title:
  1169.   justify right
  1170.   tabwidth 1
  1171.  
  1172.   hskip 5
  1173.   style editvalue
  1174.   border 3Dfield
  1175.   width -1
  1176.  
  1177. else
  1178.   newline
  1179.   style label
  1180.   text Title:
  1181.   justify right
  1182.   tabwidth 1
  1183.  
  1184.   hskip 5
  1185.   style editcont
  1186.   border 3Dfield
  1187.   width -1
  1188. endif
  1189. @@GeDF@@SOUR Record Editing
  1190. settab 90
  1191. settab 90
  1192. maxlines 2
  1193. show AUTH
  1194. show TITL Source
  1195. show ABBR
  1196. minlines 3
  1197. maxlines 5
  1198. show PUBL
  1199.  
  1200. newline
  1201. tab 1
  1202. hskip 5
  1203. show NOTE Source
  1204. show REPO
  1205.  
  1206. 3dhrule
  1207. show DATA
  1208.  
  1209. 3dhrule
  1210. show TEXT
  1211.  
  1212. !Multimedia
  1213. ifhastags OBJE
  1214.   3dhrule
  1215.   newline -2
  1216.   style label
  1217.   text Multimedia:
  1218.   justify right
  1219.   tabwidth 2
  1220.   hskip 5
  1221.   showall OBJE
  1222. endif
  1223.  
  1224. tab 1
  1225. hskip 5
  1226. show OBJE
  1227. @@GeDF@@PUBL Editing
  1228. newline
  1229. style label
  1230. text Publisher:
  1231. justify right
  1232. tabwidth 1
  1233.  
  1234. hskip 5
  1235. style editcont
  1236. border 3Dfield
  1237. width -1
  1238. @@GeDF@@REPO Editing
  1239. ! Note buttom
  1240. get *valu
  1241. if tagexists
  1242.   style button
  1243.   text Repository
  1244.   link *valu
  1245.   justify center
  1246.   width 105
  1247.   border 3Dbutton
  1248.  
  1249.   show CALN
  1250. else
  1251.   style button
  1252.   text "Link Repository"
  1253.   addlink
  1254.   justify center
  1255.   width 105
  1256.   border 3Dbutton
  1257.   hskip 5
  1258. endif
  1259. @@GeDF@@PHON Editing
  1260. use ABBR Editing
  1261. @@GeDF@@SOUR Editing
  1262. get *rec
  1263. if HEAD
  1264.   style label
  1265.   text System ID
  1266.   justify right
  1267.   tabwidth 1
  1268.  
  1269.   hskip 5
  1270.   style editvalue
  1271.   border 3dfield
  1272.   width -1
  1273.  
  1274.   show NAME
  1275.   show VERS
  1276.   show CORP
  1277.   show DATA
  1278. else
  1279.   if tagexists
  1280.     style button
  1281.     get *valu
  1282.     if validlink
  1283.       get *it.ABBR
  1284.       ifempty
  1285.         get *valu.TITL
  1286.         ifempty
  1287.           get <Unnamed Source>
  1288.         endif
  1289.       endif
  1290.       text *it
  1291.       structlink SOUa
  1292.     else
  1293.       text "<Embedded Source>"
  1294.       structlink SOUb
  1295.     endif
  1296.     face underline
  1297.     font times
  1298.     size 12
  1299.     blue
  1300.     width -1
  1301.   else
  1302.     style button
  1303.     text "New "
  1304.     ifnotempty
  1305.       text *msg
  1306.       text " "
  1307.     endif
  1308.     text Source
  1309.     addlink
  1310.     justify center
  1311.     border 3Dbutton
  1312.     width 105
  1313.     hskip 5
  1314.   endif
  1315. endif
  1316. @@GeDF@@SOUa Record Editing
  1317. ! Source citation in separate window, but link
  1318. !  to actual source
  1319.  
  1320. ! link to the source
  1321. settab 90
  1322. settab 90
  1323. style label
  1324. text Source:
  1325. justify right
  1326. tabwidth 1
  1327.  
  1328. hskip 5
  1329. style button
  1330. get *valu
  1331. if validlink
  1332.   get *it.ABBR
  1333.   ifempty
  1334.     get *valu.TITL
  1335.     ifempty
  1336.       get <Unnamed Source>
  1337.     endif
  1338.   endif
  1339.   text *it
  1340. else
  1341.   text "Link Source"
  1342. endif
  1343. addlink
  1344. justify center
  1345. width 200
  1346. border 3Dbutton
  1347. endtoolbar
  1348.  
  1349. show PAGE
  1350. show DATA
  1351. show QUAY
  1352.  
  1353. !Multimedia
  1354. ifhastags OBJE
  1355.   3dhrule
  1356.   newline -2
  1357.   style label
  1358.   text Multimedia:
  1359.   tabwidth 2
  1360.   justify right
  1361.   hskip 5
  1362.   showall OBJE
  1363. endif
  1364.  
  1365. newline
  1366. tab 1
  1367. hskip 5
  1368. show NOTE
  1369. showall NOTE
  1370. show OBJE
  1371. @@GeDF@@DATA Editing
  1372. get *rec
  1373. if HEAD
  1374.   newline
  1375.   style label
  1376.   tabwidth 1
  1377.   text Source Data:
  1378.   justify right
  1379.  
  1380.   hskip 5
  1381.   style editvalue
  1382.   border 3Dfield
  1383.   width -1
  1384.  
  1385.   cleartabs
  1386.   settab #tab2
  1387.   show DATE
  1388.   show COPR
  1389.  
  1390. elseif SOUR
  1391.   newline
  1392.   style label
  1393.   width -1
  1394.   text Type of Data Recorded in this Source:
  1395.  
  1396.   show EVEN
  1397.   settab 40
  1398.   show AGNC
  1399.   newline
  1400.   tab 2
  1401.   hskip 5
  1402.   show NOTE Data
  1403.  
  1404. else
  1405.   show DATE
  1406.   show TEXT
  1407. endif
  1408. @@GeDF@@TEXT Editing
  1409. newline
  1410. style label
  1411. text Source Text:
  1412. justify right
  1413. tabwidth 1
  1414.  
  1415. ! edit the date
  1416. hskip 5
  1417. style editcont
  1418. border 3Dfield
  1419. width -1
  1420. @@GeDF@@PAGE Editing
  1421. newline
  1422. style label
  1423. text Page:
  1424. justify right
  1425. tabwidth 1
  1426.  
  1427. ! edit the date
  1428. hskip 5
  1429. style editvalue
  1430. border 3Dfield
  1431. width -1
  1432. @@GeDF@@ABBR Editing
  1433. ! label on current line
  1434. newline
  1435. style label
  1436. text *name
  1437. text :
  1438. justify right
  1439. tabwidth 1
  1440.  
  1441. ! edit the date
  1442. hskip 5
  1443. style editvalue
  1444. border 3Dfield
  1445. width -1
  1446. @@GeDF@@SOUb Record Editing
  1447. ! Source citation in separate window for embedded
  1448. !   citation
  1449.  
  1450. ! link to the source
  1451. settab 90
  1452. style label
  1453. text Source:
  1454. justify right
  1455. tabwidth 1
  1456.  
  1457. hskip 5
  1458. style editcont
  1459. border 3Dfield
  1460. width -1
  1461.  
  1462. show TEXT
  1463. show NOTE
  1464. showall NOTE
  1465. @@GeDF@@ANCI Editing
  1466. style button
  1467. if tagexists
  1468.   text Ancestor Interest
  1469. else
  1470.   text Add Ancest. Interest
  1471. endif
  1472. addlink
  1473. justify center
  1474. width 105
  1475. border 3Dbutton
  1476. hskip 5
  1477. @@GeDF@@DESI Editing
  1478. style button
  1479. if tagexists
  1480.   text Decendent Interest
  1481. else
  1482.   text Add Descend. Interest
  1483. endif
  1484. addlink
  1485. justify center
  1486. width 105
  1487. border 3Dbutton
  1488. hskip 5
  1489. @@GeDF@@BURI Editing
  1490. style button
  1491. text *name
  1492. structlink iEVT
  1493. border 3Dbutton
  1494. justify center
  1495. width 105
  1496. hskip 5
  1497. @@GeDF@@HEAD Record Editing
  1498. settab 90
  1499. settab 120
  1500. set tab1 90
  1501. set tab2 120
  1502. show SOUR
  1503. 3dhrule
  1504. show SUBM
  1505. show SUBN
  1506. 3dhrule
  1507. show DEST
  1508. show DATE
  1509. show FILE
  1510. show COPR
  1511. show GEDC
  1512. show CHAR
  1513. show LANG
  1514. show PLAC
  1515. 3dhrule
  1516. show NOTE Header
  1517. showall NOTE Header
  1518. 3dhrule
  1519. @@GeDF@@CORP Editing
  1520. newline
  1521. style label
  1522. text Corporation:
  1523. justify right
  1524. tabwidth 1
  1525.  
  1526. hskip 5
  1527. style editvalue
  1528. border 3Dfield
  1529. width -1
  1530.  
  1531. newline
  1532. show ADDR
  1533. @@GeDF@@COPR Editing
  1534. use ABBR Editing
  1535. @@GeDF@@SUBN Editing
  1536. style button
  1537. text Submission
  1538. link *valu
  1539. justify center
  1540. width 100
  1541. border 3Dbutton
  1542. hskip 5
  1543. @@GeDF@@GEDC Editing
  1544. newline
  1545. cleartabs
  1546. settab #tab2
  1547. show VERS GEDCOM
  1548. settab #tab1
  1549. show FORM
  1550. @@GeDF@@DEST Editing
  1551. use ABBR Editing
  1552. @@GeDF@@FILE Editing
  1553. use ABBR Editing
  1554. @@GeDF@@OBJE Record Editing
  1555. settab 90
  1556. settab 120
  1557. newline 3
  1558.  
  1559. lineskip 0
  1560. style label
  1561. width -1
  1562. justify center
  1563. text GEDitCOM follows recommended GEDCOM practice
  1564. text " which is to support"
  1565. border 3dframe ltr
  1566. cellbg 0xd4 0xb4 0xa4
  1567.  
  1568. newline
  1569. style label
  1570. width -1
  1571. justify center
  1572. text  Multimedia by links to separate files.
  1573. text " This record contains encoded digital data"
  1574. border 3dframe lr
  1575. cellbg 0xd4 0xb4 0xa4
  1576.  
  1577. newline
  1578. style label
  1579. width -1
  1580. justify center
  1581. text and cannot be viewed in GEDitCOM.
  1582. text " You can click below to see the raw data."
  1583. border 3dframe lrb
  1584. cellbg 0xd4 0xb4 0xa4
  1585.  
  1586. lineskip #dlsk
  1587. newline 5
  1588. show TITL
  1589. show FORM
  1590. show BLOB
  1591.  
  1592. HideExcess
  1593. @@GeDF@@SUBN Record Editing
  1594. style label
  1595. text Submitter:
  1596. justify right
  1597. tabwidth 2
  1598.  
  1599. hskip 5
  1600. show SUBM
  1601.  
  1602. newline
  1603. show FAMF
  1604. show TEMP
  1605. show ANCE
  1606. show DESC
  1607. show ORDI
  1608. @@GeDF@@HUSB Editing
  1609. ! label on current line
  1610. newline
  1611. style label
  1612. text Husband:
  1613. justify right
  1614. tabwidth 1
  1615.  
  1616. ! display name
  1617. hskip 5
  1618. style button
  1619. get *valu.NAME
  1620. ifnotempty
  1621.   blue
  1622.   face underline
  1623.   font times
  1624.   size 12
  1625.   text *it
  1626.   link *valu
  1627.   width 250
  1628.  
  1629.   hskip 5
  1630.   get *valu.FAMC
  1631.   if validlink
  1632.     style button
  1633.     text Parents
  1634.     justify center
  1635.     link *it
  1636.     border 3dbutton
  1637.   endif
  1638. else
  1639.   text Attach Husband
  1640.   justify center
  1641.   border 3Dbutton
  1642.   menulink Attach:Husband
  1643.   width 100
  1644.   hskip 150  
  1645. endif
  1646.  
  1647. @@GeDF@@WILL Editing
  1648. use BURI Editing
  1649. @@GeDF@@NATU Editing
  1650. use BURI Editing
  1651. @@GeDF@@ORDN Editing
  1652. use BURI Editing
  1653. @@GeDF@@INDI Record Printing
  1654. leftskip 0
  1655. lineskip 0
  1656. minlines 1
  1657. settab 72
  1658. settab 110
  1659. hrule
  1660. hrule 1
  1661. style label
  1662. width -1
  1663. size 14
  1664. text Individual Record
  1665. hrule
  1666. hrule 1
  1667. show NAME INDI
  1668. show SEX
  1669. show BIRT
  1670. show DEAT
  1671.  
  1672. ifhastags FAMS
  1673.   hrule
  1674.   hrule 1
  1675.   newline
  1676.   style label
  1677.   text Marriages
  1678.   width -1
  1679.   justify center
  1680.   hrule
  1681.   showall FAMS
  1682. endif
  1683.  
  1684. ifhastags FAMC
  1685.   hrule
  1686.   hrule 1
  1687.   newline
  1688.   style label
  1689.   text Parents
  1690.   width -1
  1691.   justify center
  1692.   hrule
  1693.   showall FAMC
  1694. endif
  1695.  
  1696. hrule
  1697. hrule 1
  1698. newline
  1699. style label
  1700. text Additional Information
  1701. width -1
  1702. justify center
  1703. newline
  1704.  
  1705. set oldv #vpos
  1706. showall BAPM
  1707. showall CHR
  1708. showall BLES
  1709. showall BARM
  1710. showall BASM
  1711. showall ADOP
  1712. showall CHRA
  1713. showall CONF
  1714. showall FCOM
  1715. showall ORDN
  1716. showall GRAD
  1717. showall EMIG
  1718. showall IMMI
  1719. showall NATU
  1720. showall CENS
  1721. showall RETI
  1722. showall PROB
  1723. showall BURI
  1724. showall WILL
  1725. showall CREM
  1726. showall EVEN
  1727. showall BAPL
  1728. showall CONL
  1729. showall ENDL
  1730. showall SLGC
  1731.  
  1732. showall RESI
  1733. get #vpos
  1734. ifnot #oldv
  1735.   hrule
  1736. endif
  1737.  
  1738. showall OCCU
  1739. showall EDUC
  1740. showall DSCR
  1741. showall RELI
  1742. showall SSN
  1743. showall IDNO
  1744. showall PROP
  1745. showall CAST
  1746. showall NCHI
  1747. showall NMR
  1748. showall TITL
  1749.  
  1750. showall OBJE
  1751. showall ALIA
  1752. showall ASSO
  1753.  
  1754. showall SOUR
  1755. showall NOTE
  1756. @@GeDF@@NAME Printing
  1757. ! start new line and label
  1758. newline
  1759. style label
  1760. text Name:
  1761. get *msg
  1762. if INDI
  1763.   size 14
  1764. endif
  1765. tabwidth 2
  1766.  
  1767. ! edit name
  1768. hskip 5
  1769. style editvalue
  1770. get *msg
  1771. width -1
  1772. if INDI
  1773.   size 14
  1774. endif
  1775. @@GeDF@@BIRT Printing
  1776. ! New line and enter label
  1777. hrule 2
  1778. newline 2
  1779. style label
  1780. text Birth:
  1781. tabwidth 1
  1782.  
  1783. ! show date and place
  1784. set rtjs 1
  1785. show DATE
  1786. newline
  1787. show PLAC
  1788. showall ADDR
  1789. showall TYPE
  1790. showall AGNC
  1791. showall NOTE "Birth "
  1792. showall SOUR "Birth "
  1793. set rtjs 0
  1794. @@GeDF@@DATE Printing
  1795. get *msg
  1796. if nolabel
  1797.   hskip 5
  1798.   style editvalue
  1799.   width 100
  1800. else
  1801.   ! label on current line
  1802.   style label
  1803.   text Date:
  1804.   get *rec
  1805.   if HEAD
  1806.     tabwidth 2
  1807.     get #rtjs
  1808.     if 1
  1809.       justify right
  1810.     endif
  1811.   else
  1812.     justify right
  1813.     tabwidth 1
  1814.   endif
  1815.  
  1816.   ! edit the date
  1817.   hskip 5
  1818.   style editvalue
  1819.   width -1
  1820. endif
  1821. @@GeDF@@SEX Printing
  1822. ! label on current line
  1823. newline
  1824. style label
  1825. text Sex:
  1826. tabwidth 2
  1827.  
  1828. ! edit the place
  1829. hskip 5
  1830. style static
  1831. get *valu
  1832. if M
  1833.   text Male
  1834. else
  1835.   text Female
  1836. endif
  1837. width -1
  1838. @@GeDF@@DEAT Printing
  1839. ! New line and enter label
  1840. hrule 2
  1841. newline 2
  1842. style label
  1843. text *name
  1844. text :
  1845. tabwidth 1
  1846.  
  1847. ! show date and place
  1848. set rtjs 1
  1849. show DATE
  1850. showall AGE
  1851. show PLAC
  1852. showall ADDR
  1853. showall TYPE
  1854. showall AGNC
  1855. showall CAUS
  1856. showall NOTE *name
  1857. showall SOUR *name
  1858. set rtjs 0
  1859. @@GeDF@@FAMS Printing
  1860. ! Spouse type
  1861. newline
  1862. tabwidth 2
  1863. style label
  1864. get *this.SEX
  1865. if F
  1866.   text Husband:
  1867.   get *valu.HUSB
  1868. else
  1869.   text Wife:
  1870.   get *valu.WIFE
  1871. endif
  1872.  
  1873. ! Spouse Name
  1874. hskip 5
  1875. style static
  1876. if validlink
  1877.   text *it.NAME
  1878.   link *it
  1879. else
  1880.   text <unknown>
  1881. endif
  1882. width -1
  1883.  
  1884. get *valu.MARR.DATE
  1885. ifnotempty
  1886.   newline
  1887.   style label
  1888.   text Date:
  1889.   tabwidth 2
  1890.   justify right
  1891.  
  1892.   hskip 5
  1893.   style static
  1894.   text *it
  1895.   width -1
  1896. endif
  1897.  
  1898. get *valu.MARR.PLAC
  1899. ifnotempty
  1900.   newline
  1901.   style label
  1902.   text Place:
  1903.   tabwidth 2
  1904.   justify right
  1905.  
  1906.   hskip 5
  1907.   style static
  1908.   text *it
  1909.   width -1
  1910. endif
  1911.  
  1912. @@GeDF@@FAMC Printing
  1913. ! parent family button
  1914. newline
  1915. style label
  1916. text Parents:
  1917. width 60
  1918.  
  1919. ! Father
  1920. hskip 0
  1921. tabwidth 2
  1922. style label
  1923. justify right
  1924. text Father:
  1925.  
  1926. hskip 5
  1927. style static
  1928. get *valu.HUSB
  1929. if validlink
  1930.   text *it.NAME
  1931. else
  1932.   text <unknown>
  1933. endif
  1934. width -1
  1935.  
  1936. ! Mother
  1937. newline
  1938. tabwidth 2
  1939. style label
  1940. justify right
  1941. text Mother:
  1942.  
  1943. hskip 5
  1944. style static
  1945. get *valu.WIFE
  1946. if validlink
  1947.   text *it.NAME
  1948.   link *it
  1949. else
  1950.   text <unknown>
  1951. endif
  1952. width -1
  1953. @@GeDF@@NOTE Printing
  1954. if tagexists
  1955.   newline
  1956.   style label
  1957.   ifnotempty *msg
  1958.     justify right
  1959.   endif
  1960.   tabwidth 2
  1961.   text Notes:
  1962.  
  1963.   hskip 5
  1964.   get *valu
  1965.   if validlink
  1966.     InsertRecord *it
  1967.   else
  1968.     style EditText
  1969.   endif
  1970. endif
  1971. @@GeDF@@SOUR Printing
  1972. get *rec
  1973. if HEAD
  1974.   style label
  1975.   text System ID
  1976.   tabwidth 2
  1977.  
  1978.   hskip 5
  1979.   style editvalue
  1980.   width -1
  1981.  
  1982.   showall NAME
  1983.   set rtjs 1
  1984.   showall VERS
  1985.   showall CORP
  1986.   showall DATA
  1987.   set rtjs 0
  1988. else
  1989.   newline
  1990.   style label
  1991.   tabwidth 2
  1992.   text Source:
  1993.  
  1994.   hskip 5
  1995.   get *valu
  1996.   if validlink
  1997.     ! title source
  1998.     style static
  1999.     get *it.ABBR
  2000.     ifempty
  2001.       get *valu.TITL
  2002.       ifempty
  2003.         get <Unnamed Source>
  2004.       endif
  2005.     endif
  2006.     text *it
  2007.     width -1
  2008.   else
  2009.     style editcont
  2010.     width -1
  2011.   endif
  2012.  
  2013.   set rtjs 1
  2014.   showall PAGE
  2015.   showall DATA
  2016.   showall QUAY
  2017.   showall NOTE "Source "
  2018.   set rtjs 0
  2019. endif
  2020. @@GeDF@@TEXT Printing
  2021. newline
  2022. style label
  2023. text Text:
  2024. tabwidth 2
  2025.  
  2026. ! edit the date
  2027. hskip 5
  2028. style editcont
  2029. width -1
  2030. @@GeDF@@BAPM Printing
  2031. use DEAT Printing
  2032. @@GeDF@@NATU Printing
  2033. use DEAT Printing
  2034. @@GeDF@@DATA Printing
  2035. get *rec
  2036. if HEAD
  2037.   style label
  2038.   text Source Data:
  2039.   tabwidth 2
  2040.  
  2041.   hskip 5
  2042.   style editvalue
  2043.   width -1
  2044.  
  2045.   newline
  2046.   showall DATE
  2047.   showall COPR
  2048. else SOUR
  2049.   3dhrule
  2050.   set rtjs 1
  2051.   showall EVEN
  2052.   showall AGNC
  2053.   showall NOTE "Source "
  2054.   set rtjs 0
  2055. else
  2056.   get *DATE
  2057.   ifnotempty
  2058.     newline
  2059.     tab 1
  2060.     show DATE
  2061.   endif
  2062. endif
  2063. @@GeDF@@BURI Printing
  2064. use DEAT Printing
  2065. @@GeDF@@ORDN Printing
  2066. use DEAT Printing
  2067. @@GeDF@@WILL Printing
  2068. use DEAT Printing
  2069. @@GeDF@@CHR Editing
  2070. use BURI Editing
  2071. @@GeDF@@CREM Editing
  2072. use BURI Editing
  2073. @@GeDF@@ADOP Editing
  2074. use BURI Editing
  2075. @@GeDF@@BARM Editing
  2076. use BURI Editing
  2077. @@GeDF@@BASM Editing
  2078. use BURI Editing
  2079. @@GeDF@@BLES Editing
  2080. use BURI Editing
  2081. @@GeDF@@CONF Editing
  2082. use BURI Editing
  2083. @@GeDF@@FCOM Editing
  2084. use BURI Editing
  2085. @@GeDF@@EMIG Editing
  2086. use BURI Editing
  2087. @@GeDF@@IMMI Editing
  2088. use BURI Editing
  2089. @@GeDF@@CENS Editing
  2090. use BURI Editing
  2091. @@GeDF@@PROB Editing
  2092. use BURI Editing
  2093. @@GeDF@@RETI Editing
  2094. use BURI Editing
  2095. @@GeDF@@GRAD Editing
  2096. use BURI Editing
  2097. @@GeDF@@EVEN Editing
  2098. get *rec
  2099. if SOUR
  2100.   style label
  2101.   tabwidth 1
  2102.   text "Events:"
  2103.   justify right
  2104.  
  2105.   hskip 5
  2106.   style editvalue
  2107.   border 3dfield
  2108.   width -1
  2109.  
  2110.   show DATE
  2111.   settab 40
  2112.   show PLAC
  2113.  
  2114. else
  2115.   style button
  2116.   text *name
  2117.   structlink iEVT
  2118.   border 3Dbutton
  2119.   justify center
  2120.   width 105
  2121.   hskip 5
  2122. endif
  2123. @@GeDF@@CHAR Editing
  2124. ! label on current line
  2125. newline
  2126. style label
  2127. text *name
  2128. text :
  2129. justify right
  2130. tabwidth 1
  2131.  
  2132. ! edit the date
  2133. hskip 5
  2134. style editvalue
  2135. border 3Dfield
  2136. width -1
  2137.  
  2138. cleartabs
  2139. settab #tab2
  2140. show VERS Char. Set
  2141. @@GeDF@@LANG Editing
  2142. use ABBR Editing
  2143. @@GeDF@@ENGA Editing
  2144. style button
  2145. text *name
  2146. structlink iEVT
  2147. border 3Dbutton
  2148. justify center
  2149. width 105
  2150. hskip 5
  2151. @@GeDF@@MARB Editing
  2152. use ENGA Editing
  2153. @@GeDF@@MARC Editing
  2154. use ENGA Editing
  2155. @@GeDF@@ANUL Editing
  2156. use ENGA Editing
  2157. @@GeDF@@DIV Editing
  2158. use ENGA Editing
  2159. @@GeDF@@DIVF Editing
  2160. use ENGA Editing
  2161. @@GeDF@@MARL Editing
  2162. use ENGA Editing
  2163. @@GeDF@@MARS Editing
  2164. use ENGA Editing
  2165. @@GeDF@@VERS Editing
  2166. ! label on current line
  2167. style label
  2168. get *msg
  2169. ifnotempty
  2170.   text *it
  2171.   text " "
  2172. endif
  2173. tabwidth 1
  2174. text *name
  2175. text ":"
  2176. justify right
  2177.  
  2178. ! edit the version
  2179. hskip 5
  2180. style editvalue
  2181. border 3Dfield
  2182. width -1
  2183. @@GeDF@@BARM Printing
  2184. use DEAT Printing
  2185. @@GeDF@@BASM Printing
  2186. use DEAT Printing
  2187. @@GeDF@@BLES Printing
  2188. use DEAT Printing
  2189. @@GeDF@@CENS Printing
  2190. use DEAT Printing
  2191. @@GeDF@@CONF Printing
  2192. use DEAT Printing
  2193. @@GeDF@@CREM Printing
  2194. use DEAT Printing
  2195. @@GeDF@@DIV Printing
  2196. use DEAT Printing
  2197. @@GeDF@@DIVF Printing
  2198. use DEAT Printing
  2199. @@GeDF@@EMIG Printing
  2200. use DEAT Printing
  2201. @@GeDF@@ENGA Printing
  2202. use DEAT Printing
  2203. @@GeDF@@EVEN Printing
  2204. get *rec
  2205. if SOUR
  2206.   newline
  2207.   style label
  2208.   text Events Recorded:
  2209.   tabwidth 2
  2210.  
  2211.   hskip 5
  2212.   style editvalue
  2213.   width -1
  2214.  
  2215.   newline
  2216.   tab 1
  2217.   show DATE
  2218.   show PLAC
  2219. else
  2220.   ! New line and enter label
  2221.   hrule 2
  2222.   newline 2
  2223.   style label
  2224.   text *name
  2225.   text :
  2226.   tabwidth 1
  2227.  
  2228.   ! show date and place
  2229.   set rtjs 1
  2230.   show DATE
  2231.   showall AGE
  2232.   show PLAC
  2233.   showall ADDR
  2234.   showall TYPE
  2235.   showall AGNC
  2236.   showall CAUS
  2237.   showall NOTE *name
  2238.   showall SOUR *name
  2239.   set rtjs 0
  2240. endif
  2241. @@GeDF@@FCOM Printing
  2242. use DEAT Printing
  2243. @@GeDF@@GRAD Printing
  2244. use DEAT Printing
  2245. @@GeDF@@IMMI Printing
  2246. use DEAT Printing
  2247. @@GeDF@@MARB Printing
  2248. use DEAT Printing
  2249. @@GeDF@@MARC Printing
  2250. use DEAT Printting
  2251. @@GeDF@@MARL Printing
  2252. use DEAT Printing
  2253. @@GeDF@@MARR Printing
  2254. use DEAT Printing
  2255. @@GeDF@@MARS Printing
  2256. use DEAT Printing
  2257. @@GeDF@@PROB Printing
  2258. use DEAT Printing
  2259. @@GeDF@@RETI Printing
  2260. use DEAT Printing
  2261. @@GeDF@@SUBM Printing
  2262. ! label on current line
  2263. newline
  2264. style label
  2265. text Submitter:
  2266. tabwidth 2
  2267.  
  2268. ! edit the date
  2269. hskip 5
  2270. get *valu.NAME
  2271. style static
  2272. text *it
  2273. width -1
  2274. @@GeDF@@ADOP Printing
  2275. use DEAT Printing
  2276. @@GeDF@@ANUL Printing
  2277. use DEAT Printing
  2278. @@GeDF@@CHR Printing
  2279. use DEAT Printing
  2280. @@GeDF@@HUSB Printing
  2281. ! label on current line
  2282. newline
  2283. style label
  2284. text Husband:
  2285. tabwidth 2
  2286.  
  2287. ! display name
  2288. hskip 5
  2289. style static
  2290. text *valu.NAME
  2291. width -1
  2292. @@GeDF@@WIFE Printing
  2293. ! label on current line
  2294. newline
  2295. style label
  2296. text Wife:
  2297. tabwidth 2
  2298.  
  2299. ! display name
  2300. hskip 5
  2301. style static
  2302. text *valu.NAME
  2303. width -1
  2304. @@GeDF@@CHIL Printing
  2305. style label
  2306. tabwidth 2
  2307. get *valu.SEX
  2308. if M
  2309.   text Son:
  2310. else
  2311.   text Daughter:
  2312. endif
  2313.  
  2314. hskip 5
  2315. style static
  2316. text *valu.NAME
  2317. width -1
  2318.  
  2319. newline
  2320. style label
  2321. tabwidth 2
  2322. justify right
  2323. text Birth:
  2324.  
  2325. hskip 5
  2326. style static
  2327. width -1
  2328. text *valu.BIRT.DATE
  2329. get *valu.BIRT.PLAC
  2330. ifnotempty
  2331.   text ", "
  2332.   text *it
  2333. endif
  2334.  
  2335. newline
  2336. style label
  2337. tabwidth 2
  2338. justify right
  2339. text Death:
  2340.  
  2341. hskip 5
  2342. style static
  2343. width -1
  2344. text *valu.DEAT.DATE
  2345. get *valu.DEAT.PLAC
  2346. ifnotempty
  2347.   text ", "
  2348.   text *it
  2349. endif
  2350.  
  2351. hrule
  2352.  
  2353. @@GeDF@@FAM Record Printing
  2354. leftskip 0
  2355. lineskip 0
  2356. minlines 1
  2357. settab 72
  2358. settab 110
  2359. hrule
  2360. hrule 1
  2361. style label
  2362. width -1
  2363. size 14
  2364. text Family Group Record
  2365. hrule
  2366. hrule 1
  2367. show HUSB
  2368. show WIFE
  2369. show MARR
  2370.  
  2371. hrule
  2372. hrule 1
  2373. set topv #vpos
  2374. showall CHIL
  2375. set oldv #vpos
  2376. showall NCHI
  2377. get #vpos
  2378. if #oldv
  2379.   ifnot #topv
  2380.     hrule 1
  2381.   endif
  2382. else
  2383.   hrule
  2384.   hrule 1
  2385. endif
  2386.  
  2387. newline
  2388. style label
  2389. text Additional Information
  2390. width -1
  2391. justify center
  2392. newline -3
  2393.  
  2394. set oldv #vpos
  2395. showall ENGA
  2396. showall MARB
  2397. showall MARC
  2398. showall MARL
  2399. showall MARS
  2400. showall SLGS
  2401. showall DIV
  2402. showall DIVF
  2403. showall ANUL
  2404. showall CENS
  2405. showall EVEN
  2406. get #vpos
  2407. ifnot #oldv
  2408.   hrule
  2409. endif
  2410.  
  2411. set oldv #vpos
  2412. showall OBJE
  2413. showall SOUR
  2414. showall NOTE
  2415. get #vpos
  2416. ifnot #oldv
  2417.   hrule
  2418. endif
  2419.  
  2420. @@GeDF@@QUAY Editing
  2421. !title
  2422. newline
  2423. style label
  2424. text Quality:
  2425. tabwidth 1
  2426. justify right
  2427.  
  2428. ! popup menu
  2429. hskip 5
  2430. style popupedit
  2431. width 90
  2432. border shadow
  2433. justify center
  2434. font chicago
  2435. face plain
  2436. size 12
  2437. popupitem Unknown:
  2438. popupitem Unreliable:0
  2439. popupitem Questionable:1
  2440. popupitem Secondary:2
  2441. popupitem Primary:3
  2442. @@GeDF@@RESN Editing
  2443. ifempty *msg
  2444.   newline
  2445.   tab 2
  2446.   hskip 5
  2447. else
  2448.   set hskp #rmgn
  2449.   sub hskp #lmgn
  2450.   sub hskp 28
  2451.   sub hskp #hpos
  2452.   hskip #hskp
  2453. endif
  2454.  
  2455. style button
  2456. border 3dfield
  2457. menulink Attach:Restriction
  2458. if tagexists
  2459.   picture @locked
  2460. else
  2461.   picture @unlocked
  2462. endif
  2463. width 28
  2464. height 17
  2465. cellbg
  2466. @@GeDF@@OBJE Editing
  2467. get *valu
  2468.  
  2469. ! link to embedded MM
  2470. if ValidLink
  2471.   get #hpos
  2472.   if #lmgn
  2473.     tab 2
  2474.     hskip 5
  2475.   endif
  2476.   style button
  2477.   text Encoded Multimedia Object
  2478.   border 3dbutton
  2479.   link *valu
  2480.   width 150
  2481.   justify center
  2482.   newline
  2483.  
  2484. ! link to file
  2485. elseif TagExists
  2486.   get #hpos
  2487.   if #lmgn
  2488.     tab 2
  2489.     hskip 5
  2490.   endif
  2491.   style button
  2492.   get *TITL
  2493.   ifempty
  2494.     get *FILE
  2495.   endif
  2496.   text *it
  2497.   text " ("
  2498.   text *FORM
  2499.   text )
  2500.   border 3dbutton
  2501.   Structlink mmOB
  2502.   width -1
  2503.   justify center
  2504.   newline
  2505.  
  2506. ! no structure there
  2507. else
  2508.   style button
  2509.   text Add Multimedia
  2510.   border 3dbutton
  2511.   NewLink
  2512.   width 105
  2513.   justify center
  2514.   hskip 5
  2515. endif
  2516. @@GeDF@@TIME Editing
  2517.  
  2518. @@GeDF@@ALIA Editing
  2519. if tagexists
  2520.   style button
  2521.   get *valu.NAME
  2522.   ifempty
  2523.     get <Unnamed Alias>
  2524.   endif
  2525.   text *it
  2526.   link *valu
  2527.   face underline
  2528.   font times
  2529.   size 12
  2530.   blue
  2531.   width -1
  2532. else
  2533.   style button
  2534.   text "Add Alias"
  2535.   addlink
  2536.   justify center
  2537.   border 3Dbutton
  2538.   width 105
  2539.   hskip 5
  2540. endif
  2541. @@GeDF@@ASSO Editing
  2542. if tagexists
  2543.   style button
  2544.   get *valu.NAME
  2545.   ifempty
  2546.     get <Unnamed Association>
  2547.   endif
  2548.   text *it
  2549.   link *valu
  2550.   face underline
  2551.   font times
  2552.   size 12
  2553.   blue
  2554.   width -1
  2555.   show RELA
  2556. else
  2557.   style button
  2558.   text "Add Association"
  2559.   addlink
  2560.   justify center
  2561.   border 3Dbutton
  2562.   width 105
  2563.   hskip 5
  2564. endif
  2565. @@GeDF@@RELA Editing
  2566. style static
  2567. text Relationship:
  2568. justify right
  2569. width 80
  2570.  
  2571. ! edit the relation
  2572. hskip 5
  2573. style editvalue
  2574. border 3Dfield
  2575. width -1
  2576. @@GeDF@@CHRA Editing
  2577. use BURI Editing
  2578. @@GeDF@@CHRA Printing
  2579. use DEAT Printing
  2580. @@GeDF@@iEVT Record Editing
  2581. settab 72
  2582. settab 72
  2583.  
  2584. newline
  2585. style 3DCheckEdit
  2586. width 10
  2587. uncheckedvalue
  2588.  
  2589. hskip 5
  2590. style label
  2591. text *name
  2592. get *rec
  2593. if INDI
  2594.   text " of "
  2595.   text *this.NAME
  2596. else
  2597.   text " for "
  2598.   text *this.HUSB.NAME
  2599.   text " and "
  2600.   text *this.WIFE.NAME
  2601. endif
  2602. width -1
  2603. newline
  2604.  
  2605. ! show date and place
  2606. show DATE Event
  2607. show AGE
  2608. show TYPE
  2609. show PLAC
  2610. show ADDR
  2611. show CAUS
  2612. show AGNC
  2613.  
  2614. !Multimedia
  2615. ifhastags OBJE
  2616.   3dhrule
  2617.   newline -2
  2618.   style label
  2619.   text Multimedia:
  2620.   tabwidth 2
  2621.   justify right
  2622.   hskip 5
  2623.   showall OBJE
  2624. endif
  2625.  
  2626. ! Show notes and source
  2627. leftSkip 80
  2628. lineskip 0
  2629. ifhastags SOUR
  2630.   newline -1
  2631.   style static
  2632.   text Sources:
  2633.   width 48
  2634.   hskip 2
  2635.   leftskip 130
  2636.   showall SOUR
  2637.   leftSkip 80
  2638. endif
  2639. newline
  2640. leftskip 40
  2641. lineskip #dlsk
  2642. show SOUR *name
  2643. show NOTE *name
  2644. show OBJE
  2645. leftskip #dlmg
  2646. @@GeDF@@AGE Editing
  2647. hskip 5
  2648. style label
  2649. text Age:
  2650. justify right
  2651. width 33
  2652.  
  2653. ! edit the date
  2654. hskip 2
  2655. style editvalue
  2656. border 3Dfield
  2657. width -1
  2658. @@GeDF@@NOTE Record Printing
  2659. style edittext
  2660. showall CHAN NOTE
  2661. @@GeDF@@ANCI Printing
  2662. ! static text with level and tab
  2663. newline
  2664. style label
  2665. text Ancestor Interest:
  2666. tabwidth 2
  2667.  
  2668. ! edit field with value
  2669. hskip 5
  2670. style static
  2671. width -1
  2672. text *valu.NAME
  2673. newline
  2674. @@GeDF@@DESI Printing
  2675. ! static text with level and tab
  2676. newline
  2677. style label
  2678. text Descend. Interest:
  2679. tabwidth 2
  2680.  
  2681. ! edit field with value
  2682. hskip 5
  2683. style static
  2684. width -1
  2685. text *valu.NAME
  2686. newline
  2687. @@GeDF@@ALIA Printing
  2688. ! static text with level and tab
  2689. newline
  2690. style label
  2691. text Alias:
  2692. tabwidth 2
  2693.  
  2694. ! edit field with value
  2695. hskip 5
  2696. style static
  2697. get *valu.NAME
  2698. ifempty
  2699.   get <Unnamed Alias>
  2700. endif
  2701. text *it
  2702. width -1
  2703. newline
  2704. @@GeDF@@ASSO Printing
  2705. ! static text with level and tab
  2706. newline
  2707. style label
  2708. text Association:
  2709. tabwidth 2
  2710.  
  2711. ! edit field with value
  2712. hskip 5
  2713. style static
  2714. get *valu.NAME
  2715. ifempty
  2716.   get <Unnamed Association>
  2717. endif
  2718. text *it
  2719. width -1
  2720. newline
  2721.  
  2722. set rtjs 1
  2723. showall TYPE
  2724. showall RELA
  2725. set rtjs 0
  2726. @@GeDF@@CHAN Printing
  2727. newline
  2728. style label
  2729. tabwidth 2
  2730. get *msg
  2731. if NOTE
  2732.   text Notes Changed:
  2733.   justify right
  2734. else
  2735.   text Record Changed:
  2736. endif
  2737. hskip 5
  2738. style static
  2739. text *DATE
  2740. get *DATE.TIME
  2741. ifnotempty
  2742.   text ", "
  2743.   text *it
  2744. endif
  2745. width -1
  2746. HideExcess
  2747. @@GeDF@@ADDR Printing
  2748. ! parent family button
  2749. newline
  2750. style label
  2751. text Address:
  2752. get #rtjs
  2753. if 1
  2754.   justify right
  2755. endif
  2756. tabwidth 2
  2757.  
  2758. hskip 5
  2759. style editcont
  2760. width -1
  2761. @@GeDF@@RESI Editing
  2762. ! static text with level and tab
  2763. newline
  2764. style label
  2765. text Residence:
  2766. tabwidth 2
  2767. justify right
  2768.  
  2769. ! edit field with value
  2770. hskip 5
  2771. style button
  2772. border 3DButton
  2773. text Show Residence
  2774. structlink Resi
  2775. justify center
  2776. width 100
  2777. newline
  2778. @@GeDF@@Resi Record Editing
  2779. style label
  2780. text "Residence for "
  2781. text *this.NAME
  2782. width -1
  2783. endtoolbar
  2784. show ADDR
  2785. @@GeDF@@CONL Editing
  2786. style button
  2787. text *name
  2788. structlink lEVT
  2789. border 3Dbutton
  2790. justify center
  2791. width 105
  2792. hskip 5
  2793. @@GeDF@@lEVT Record Editing
  2794. settab 72
  2795. settab 72
  2796.  
  2797. newline
  2798. style 3DCheckEdit
  2799. width 10
  2800. uncheckedvalue
  2801.  
  2802. hskip 5
  2803. style label
  2804. text *name
  2805. text " of "
  2806. text *this.NAME
  2807. width -1
  2808. newline
  2809.  
  2810. ! show date and place
  2811. show DATE
  2812. show PLAC
  2813. show STAT
  2814. show TEMP
  2815.  
  2816. ! Show notes and source
  2817. leftSkip 80
  2818. lineskip 0
  2819. ifhastags SOUR
  2820.   newline -1
  2821.   style static
  2822.   text Sources:
  2823.   width 50
  2824.   hskip 2
  2825.   leftskip 132
  2826.   showall SOUR
  2827.   leftSkip 80
  2828. endif
  2829. newline
  2830. show SOUR *name
  2831. show NOTE *name
  2832. lineskip #dlsk
  2833. leftskip #dlmg
  2834. @@GeDF@@BAPL Editing
  2835. use CONL Editing
  2836. @@GeDF@@ENDL Editing
  2837. use CONL Editing
  2838. @@GeDF@@SLGC Editing
  2839. use CONL Editing
  2840. @@GeDF@@CONL Printing
  2841. ! New line and enter label
  2842. hrule 2
  2843. newline 2
  2844. style label
  2845. text *name
  2846. text :
  2847. tabwidth 1
  2848.  
  2849. ! show date and place
  2850. set rtjs 1
  2851. show DATE
  2852. show PLAC
  2853. showall STAT
  2854. showall TEMP
  2855. showall NOTE *name
  2856. showall SOUR *name
  2857. set rtjs 0
  2858. @@GeDF@@BAPL Printing
  2859. use CONL Printing
  2860. @@GeDF@@ENDL Printing
  2861. use CONL Printing
  2862. @@GeDF@@SLGC Printing
  2863. use CONL Printing
  2864. @@GeDF@@RESI Printing
  2865. use DEAT Printing
  2866. @@GeDF@@QUAY Printing
  2867. ! static text with level and tab
  2868. newline
  2869. style label
  2870. text Quality:
  2871. justify right
  2872. tabwidth 2
  2873.  
  2874. ! edit field with value
  2875. hskip 5
  2876. style static
  2877. width -1
  2878. get *valu
  2879. if 0
  2880.   text Unreliable
  2881. elseif 1
  2882.   text Questionable
  2883. elseif 2
  2884.   text Secondary
  2885. elseif 3
  2886.   text Primary
  2887. else
  2888.   text Unknown
  2889. endif
  2890. newline
  2891. @@GeDF@@STAT Editing
  2892. !title
  2893. newline
  2894. style label
  2895. text Status:
  2896. tabwidth 1
  2897. justify right
  2898.  
  2899. ! popup menu
  2900. hskip 5
  2901. style popupedit
  2902. width 100
  2903. border shadow
  2904. justify center
  2905. font chicago
  2906. face plain
  2907. size 12
  2908. height 18
  2909. popupitem {Unspecified}:
  2910. popupitem Child
  2911. popupitem Cleared
  2912. popupitem Completed
  2913. popupitem Infant
  2914. popupitem Qualified
  2915. popupitem Pre-1970
  2916. popupitem Stillborn
  2917. popupitem Submitted
  2918. popupitem Uncleared
  2919. @@GeDF@@CHAN Editing
  2920. ! static text with level and tab
  2921. newline
  2922. style static
  2923. text Last Changed:
  2924. face plain
  2925. width 75
  2926. justify right
  2927. cellbg 0xD4 0xB4 0xA4
  2928.  
  2929. ! edit field with value
  2930. hskip 0
  2931. style static
  2932. text *valu
  2933. text *DATE
  2934. get *DATE.TIME
  2935. ifnotempty
  2936.   text ", "
  2937.   text *it
  2938. endif
  2939. cellbg 0xD4 0xB4 0xA4
  2940. width -1
  2941.  
  2942. HideExcess
  2943. @@GeDF@@NCHI Editing
  2944. ! static text with level and tab
  2945. hskip 15
  2946. style label
  2947. text Number of Children:
  2948. width 130
  2949. justify right
  2950.  
  2951. ! edit field with value
  2952. hskip 5
  2953. style editvalue
  2954. border 3Dfield
  2955. width 30
  2956. hskip 10
  2957. @@GeDF@@SLGS Editing
  2958. use CONL Editing
  2959. @@GeDF@@SLGS Printing
  2960. use CONL Printing
  2961. @@GeDF@@REPO Record Printing
  2962. leftskip 0
  2963. lineskip 0
  2964. minlines 1
  2965. settab 72
  2966. settab 110
  2967. hrule
  2968. hrule 1
  2969. style label
  2970. width -1
  2971. size 14
  2972. text Repository Record
  2973. hrule
  2974. hrule 1
  2975. newline 2
  2976.  
  2977. show NAME
  2978. show ADDRESS
  2979. hrule
  2980. showall NOTE
  2981. hrule 1
  2982. @@GeDF@@PLAC Editing
  2983. ! static text with level and tab
  2984. newline
  2985. style label
  2986. get *rec
  2987. if HEAD
  2988.   cleartabs
  2989.   settab #tab2
  2990.   text "    Default Place Hierarchy"
  2991.   width -1
  2992.   newline -2
  2993.   settab 40
  2994.   settab #tab1
  2995.   show FORM
  2996. else
  2997.   text Place:
  2998.   tabwidth 2
  2999.   justify right
  3000.  
  3001.   ! edit field with value
  3002.   hskip 5
  3003.   style editvalue
  3004.   border 3Dfield
  3005.   width -1
  3006.   newline
  3007. endif
  3008. @@GeDF@@BLOB Editing
  3009. newline
  3010. tab 2
  3011. hskip 5
  3012.  
  3013. style button
  3014. text View Encoded Data
  3015. width 150
  3016. structlink rawD
  3017. justify center
  3018. border 3dbutton
  3019. @@GeDF@@CONT Editing
  3020.  
  3021. @@GeDF@@SUBM Record Printing
  3022. leftskip 0
  3023. lineskip 0
  3024. minlines 1
  3025. settab 72
  3026. settab 110
  3027. hrule
  3028. hrule 1
  3029. style label
  3030. width -1
  3031. size 14
  3032. text Submitter Record
  3033. hrule
  3034. hrule 1
  3035. newline 2
  3036.  
  3037. show NAME
  3038. show ADDR
  3039. show PHON
  3040. show LANG
  3041. @@GeDF@@SUBN Record Printing
  3042. leftskip 0
  3043. lineskip 0
  3044. minlines 1
  3045. settab 72
  3046. settab 130
  3047. hrule
  3048. hrule 1
  3049. style label
  3050. width -1
  3051. size 14
  3052. text Submission Record
  3053. hrule
  3054. hrule 1
  3055. newline 2
  3056.  
  3057. show SUBM
  3058. show FAMF
  3059. show TEMP
  3060. show ANCE
  3061. show DESC
  3062. show ORDI
  3063. @@GeDF@@HEAD Record Printing
  3064. leftskip 0
  3065. lineskip 0
  3066. minlines 1
  3067. settab 72
  3068. settab 110
  3069. hrule
  3070. hrule 1
  3071. style label
  3072. width -1
  3073. size 14
  3074. text Header Record
  3075. hrule
  3076. hrule 1
  3077. newline 2
  3078.  
  3079. show SOUR
  3080. 3dhrule
  3081. show SUBM
  3082. show SUBN
  3083. 3dhrule
  3084. show DEST
  3085. show DATE
  3086. show FILE
  3087. show COPR
  3088. show GEDC
  3089. show CHAR
  3090. show LANG
  3091. show PLAC
  3092. 3dhrule
  3093. show NOTE Header
  3094. showall NOTE Header
  3095. @@GeDF@@SUBN Printing
  3096.  
  3097. @@GeDF@@GEDC Printing
  3098. showall VERS "GEDCOM "
  3099. showall FORM
  3100. @@GeDF@@VERS Printing
  3101. style label
  3102. text *msg
  3103. text Version:
  3104. get #rtjs
  3105. if 1
  3106.   justify right
  3107. endif
  3108. tabwidth 2
  3109.  
  3110. hskip 5
  3111. style editvalue
  3112. width -1
  3113. @@GeDF@@PLAC Printing
  3114. get *rec
  3115. if HEAD
  3116.   style label
  3117.   text Default Place Hierarchy
  3118.   width -1
  3119.  
  3120. else
  3121.   style label
  3122.   text Place:
  3123.   get #rtjs
  3124.   if 1
  3125.     justify right
  3126.   endif
  3127.   tabwidth 2
  3128.  
  3129.   hskip 5
  3130.   style editvalue
  3131.   width -1
  3132. endif
  3133. @@GeDF@@SOUR Record Printing
  3134. leftskip 0
  3135. lineskip 0
  3136. minlines 1
  3137. settab 72
  3138. settab 110
  3139. hrule
  3140. hrule 1
  3141. style label
  3142. width -1
  3143. size 14
  3144. text Source Record
  3145. hrule
  3146. hrule 1
  3147. newline 2
  3148.  
  3149. show AUTH
  3150. show TITL Source
  3151. showall ABBR
  3152. showall PUBL
  3153. showall REPO
  3154. showall NOTE Source
  3155.  
  3156. showall DATA
  3157.  
  3158. 3dhrule
  3159. showall TEXT
  3160. @@GeDF@@AUTH Printing
  3161. newline
  3162. style label
  3163. text Author:
  3164. tabwidth 2
  3165.  
  3166. hskip 5
  3167. style edittext
  3168. width -1
  3169. @@GeDF@@TITL Printing
  3170. get *rec
  3171. if SOUR
  3172.   newline
  3173.   style label
  3174.   text Title:
  3175.   tabwidth 2
  3176.  
  3177.   hskip 5
  3178.   style edittext
  3179.   width -1
  3180.  
  3181. else
  3182.   ! static text with level and tab
  3183.   newline
  3184.   style label
  3185.   text Title:
  3186.   tabwidth 2
  3187.  
  3188.   ! edit field with value
  3189.   hskip 5
  3190.   style editvalue
  3191.   width -1
  3192. endif
  3193. @@GeDF@@PUBL Printing
  3194. newline
  3195. style label
  3196. text Publisher:
  3197. tabwidth 2
  3198.  
  3199. hskip 5
  3200. style edittext
  3201. width -1
  3202. @@GeDF@@REPO Printing
  3203. ! label on current line
  3204. newline
  3205. style label
  3206. text Repository:
  3207. tabwidth 2
  3208.  
  3209. ! edit the date
  3210. hskip 5
  3211. get *valu.NAME
  3212. style static
  3213. text *it
  3214. width -1
  3215. @@GeDF@@mmOB Record Editing
  3216. style label
  3217. text "Multimedia File Link"
  3218. width 200
  3219.  
  3220. set blef #rmgn
  3221. sub blef #lmgn
  3222. sub blef 100
  3223. HMoveTo #blef
  3224. style button
  3225. text "Change File Link"
  3226. border 3dbutton
  3227. NewLink
  3228. width 100
  3229. justify center
  3230.  
  3231. show TITL mm
  3232.  
  3233. newline
  3234. style label
  3235. text File:
  3236. justify right
  3237. tabwidth 1
  3238.  
  3239. hskip 5
  3240. style static
  3241. width -1
  3242. text *FILE
  3243. setmmform *FORM
  3244.  
  3245. newline
  3246. style label
  3247. text Format:
  3248. justify right
  3249. tabwidth 1
  3250.  
  3251. show FORM mm
  3252. hskip 20
  3253. show NOTE Media
  3254.  
  3255. endtoolbar
  3256.  
  3257. style static
  3258. showmm *FILE
  3259. cellbg 0xFF 0xFF 0xFF
  3260. set cwid #picw
  3261. add cwid 4
  3262. width #cwid
  3263. set cwid #pich
  3264. add cwid 4
  3265. height #cwid
  3266. border 3dfield
  3267.  
  3268. HideExcess
  3269. ZoomWindow
  3270. @@GeDF@@rawD Record Editing
  3271. style edittext
  3272. font monaco
  3273. size 9
  3274. @@GeDF@@OBJE Printing
  3275. get *valu
  3276. ifnot ValidLink
  3277.   newline
  3278.   style label
  3279.   tabwidth 2
  3280.   text Multimedia File:
  3281.  
  3282.   hskip 5
  3283.   style static
  3284.   get *TITL
  3285.   ifempty
  3286.     get *FILE
  3287.   endif
  3288.   text *it
  3289.   text " ("
  3290.   text *FORM
  3291.   text )
  3292.   width -1
  3293.   newline
  3294.  
  3295.   tab 2
  3296.   hskip 5
  3297.   style static
  3298.   text *FILE
  3299.   width -1
  3300.   newline
  3301.  
  3302.   get *FORM
  3303.   if PICT
  3304.     tab 2
  3305.     hskip 5
  3306.     style static
  3307.     setmmform *FORM
  3308.     showmm *FILE
  3309.     set cwid #picw
  3310.     add cwid 4
  3311.     width #cwid
  3312.     set cwid #pich
  3313.     add cwid 4
  3314.     height #cwid
  3315.     border field
  3316.   endif
  3317.  
  3318. endif
  3319.  
  3320. HideExcess
  3321. @@GeDF@@FORM Editing
  3322. get *msg
  3323. if mm
  3324.   hskip 5
  3325.   style editvalue
  3326.   width 50
  3327.   border 3dfield
  3328. else
  3329.   newline
  3330.   style label
  3331.   text Form:
  3332.   tabwidth 2
  3333.   justify right
  3334.  
  3335.   ! edit field with value
  3336.   hskip 5
  3337.   style editvalue
  3338.   border 3Dfield
  3339.   width -1
  3340. endif
  3341. @@GeDF@@PEDI Editing
  3342. !title
  3343. newline
  3344. style label
  3345. text Pedigree:
  3346. tabwidth 2
  3347. justify right
  3348.  
  3349. ! popup menu
  3350. hskip 5
  3351. style popupedit
  3352. width 75
  3353. border shadow
  3354. justify center
  3355. popupitem Birth:
  3356. popupitem Adopted:adopted
  3357. popupitem Foster:foster
  3358. popupitem Sealing:sealing
  3359. @@GeDF@@REFN Editing
  3360. ! static text with level and tab
  3361. newline
  3362. style static
  3363. text User Ref. ID:
  3364. face plain
  3365. width 75
  3366. justify right
  3367. cellbg 0xD4 0xB4 0xA4
  3368.  
  3369. ! edit field with value
  3370. hskip 0
  3371. style static
  3372. text *valu
  3373. cellbg 0xD4 0xB4 0xA4
  3374. width -1
  3375.  
  3376. HideExcess
  3377. @@GeDF@@CALN Editing
  3378. newline
  3379. style label
  3380. text Call Number:
  3381. tabwidth 2
  3382. justify right
  3383. hskip 5
  3384.  
  3385. style editvalue
  3386. border 3dfield
  3387. width -1
  3388.  
  3389. show MEDI
  3390. @@GeDF@@
  3391. @@GeDF@@Current GEDitCOM Format Editing Help
  3392. .../8./1..U3RqQc/LSaE.Jt8E.3RqO......./W..2.SE...AY..U1x.../.E.1
  3393. .FA...Pf..A4vk..0/M..kUU...6IU.103Q...W1..A6X...0Gc..kYs...7O..1
  3394. 0L2...aW..A7gk..0V6..kcZ...8VU.10cw...ey..A8nE..0zk..kk8...AH..2
  3395. 13E...lN..EALk..15../Elt...FBU.12Hc../4o..AFjU..2T...l5p...G5E.1
  3396. 2WM../92..AGoU..2k6..lA9...I0k.13/U../G9..IIa...3FQ..lIZ...MH..1
  3397. 43s../Zx..ANXk..4hw..lfl...PF..34pI../iF..APck..51k./FlK...RcU.3
  3398. 5Po../r/zzwRkjzz....Y..W..o.0U.1....0U........./..o.0U.1.E..0U..
  3399. ......./..o.0U.1/...0U.........M..o.0U.1.U..0U.........0./..11zz
  3400. ....1..........3..o.0U.1/...0U....1I......o.0U.1.U..0U..........
  3401. ..o.0U.1.E..0U..........5Q.U60.U60/IO4Zn64VZP5.UR4xkOKAUNqZqNLAU
  3402. NaxmPK3o9LBkNKBdNaZX64ZiNaxmPK3oOKxi643WPrJo64JYOLFdPaQUFoJ2EoxB
  3403. 62NdP4Jn65RcNKsURLBdPaQUR4VZ62FZNa3pP5EUFoJ2OLF1HooUFaxmPK3o9W/I
  3404. O4Zn64NjQapVR0/bOLNZQm/qOL7oRK3gP5YUMqxhQ4lZR4IUMKBXNLBn65Fj643g
  3405. P0/aNK3oRL7ZQm/jNW/5FIF1HooUNaZgNLAi1EpHQ4JXOKNdMm/3N4ZoOKtb62Zi
  3406. NaxmPK3oOKxi64NjQW/3MKBc63FtQ4IUPqMUIaJXPr7Y1EqZ62ZCF2ZKGIFJEIkU
  3407. IaJXPr7YQkoU60.U60/IO4IUR4xk64xa64JVMqUUGIt2GJN7F3J/H0/GNKBjQaEU
  3408. NqZqNLAUMG/nNL7dNLAUPqMUMbJoR4xiQm/oO43o65/mPrNdN4IUP4ZiOrAUR4wU
  3409. R4VVR0/kNL7nPqvJQm/4MLFcNL6g62pjR4VZQWkUIr/jRLBZ85Ad90/VPaEUEqVd
  3410. P4FmNKsi63FcNG//PaBZQrFjQbAUMKtY62FZQqBZPaFVPbFn647pR5FjPbAURqZg
  3411. P0/YOLBkP43t643i643iMqJnR4xm64xm64FZQqBZPaFZPbEUNa3hOKlt65FmNKIU
  3412. Naxm65FcNG/kNL7nPqsi1G.U60.U63FcNG/iNLVo64ldPaIUNqZqNLAUR4VZ65/Z
  3413. QbBjPhJn64tVPKIg65BZS0kUMKtY642UQaJnR57dMrFdPqsUOKBjPWsUKKxp64BV
  3414. PW/ZN4Zo65FcNG/iMKpZ60VWRLEUPaxo65FcNG/nNLUd9W/IO4IUQaJnR57dMrFd
  3415. PqsUOKBjPW/rOKlg64ZiN4ZXMLFZ64Za65FcNG/mNKBjQaEUOLAUP4xXOqJY60VX
  3416. P4xnNKEUP4xXOmYUPr6URKtgPqBfNKEU84xkNKtZN0/gPqBfNKEd9W/NPrIUMq3i
  3417. 64BgOKBf65FcNG/dMqxi65Fj64BcMKtbNG/oO4IUMrJmQaJiR0/mNLBoQaZXR4Zj
  3418. PWsB60.U60.UJ4VZ64tZS5EUR5Rj65BZMrFdPqtn64FZQqBmOK7Z65FcOLAUQ4Jm
  3419. QqxipLAUMaZmR4UUMKtY64FZMLFc64JqNKtoQmsUKKxp64BVPW/ZPbFZQW/oO4IU
  3420. N43oNLAUMKtY65/gMKBZQmsUJ5Rj647pR5FjPbAUP4Jo65Fj64JiR4Jm64tjR4Jn
  3421. 643WPrJo65FcNG/WOL7oO0/jQW/YNK3oO0/jQW/VR5FVMqUUMG/nPrJmMqIUNaxm
  3422. 65FcNG/dPaNjQapVR4ZjPWsB60.U60.UEaJgPrQUR4VZ64FZMLFc64JqNKto65Rd
  3423. P4kUMaIUMG/gOLBo64xa643gP0/aMKpdP4ZZQm/oO4Zn64ZiN4ZqOKFpMKkUMaJg
  3424. PqtbQm/oPmsUJ4VZ64ldQrEURqZgP0/dPaBgRKFZ643gP0/hML7mOK3bNLAURqZo
  3425. O0/gOKtfQm/oPm/oO4IUQr/jRLBZ60VXP4ZXOm/jPW/oO4IUQr/jRLBZpLAUPa3h
  3426. NGYUMKtY65Fj65FcNG/aMKpdP5YUQaJXPr7Y64NjQW/oO43o64pVQb7dMKRZ60VX
  3427. P4ZXOm/jPW/oO4IUoYpVQb7dMKRZ637ZMqxmNBAUMbJoR4xi8GsUJ4VZ64ldQrEU
  3428. RqZgP0/VP5Bj64ZiMqlpN4IUP4ZiOrAUR4wUR4VdQm/kNL7nPqvJQm/kML7ZPbFn
  3429. 60VXP4ZXOm/jPW/aMLFcNL9JQm/jQW/hPrFcNL9JQm/iMKpZQmYUMKtY642UP4Zi
  3430. Om/oPm/oO4IUNa3hOKlt657ZMqxmN0/jNW/oO4IUQ43mNKtoQm.cMqldMqgUPqsU
  3431. R4VZ6B7EML7ZPbFn62NVPKZgSRAUMbJoR4xi8GsB60.U60.UJ4VZ64tZS5EUQqJX
  3432. R4ZjPW/rOKlg647Z642UP4ZnR0.cOKMUMKtt8G/VP4kUNLNZPbFn643iN0/aMKBo
  3433. Qm/VMaxpR0/oO4Zn64ZiN4ZqOKFpMKki62Za65ZjRG/gNK3mPW/nPqpZ64tZRm/Z
  3434. RaJiR0/jQW/VR5FmOK7pR4IUOKtaPr7hMLFdPqsg65ZjRG/XMKsUMqldMqgUR4VZ
  3435. 6B7/R5FVMqUUFLNZPbEjELFoQaZWRLFZom/WRLFoPqsUR4wUMKFY65FcMLEUN43o
  3436. MG/oPm/oO4IUQaJXPr7Y9W/3RaJiR5AURqZgP0/VQ5/ZML6UMLAUMbJoR4xiQmsU
  3437. KKxp64BVPW/XP4ZXOm/oO43o647pR5FjPW/oPm/nNKIUN4JoMKZgQm.cN43oNGkU
  3438. Q4lVMqJn90/iPrFZQmkUNLFX9WYUMK7jRLEUR4VVR0/ZRaJiR0sB60.U60.UEaJg
  3439. PrQUR4VZ64JqNKtoQm/VPaEUMLFoQaZWRLFZQm/oO4JmNG/hMLYUMaIUPrFcNL6U
  3440. NqJiNK3gPqRdMq3g64ZiNaxmPK3oOKxi65BpMqUUMLAUP4ZiOrAUR4wUPLJgR4Zh
  3441. NKFdMG/aOKlZQmkUMKldMLBZQmkUMLBnPqBdMLFdPqsUP4ZiOrAg643iN0/nPrJm
  3442. MqIUOKtaPr7hMLFdPqsi1G.U60.U63FcNG/WPrFoPqoUQqJXR4ZjPW/jNW/7HYF7
  3443. JYZ2JI3A657ZMqxmN5AUO43n642UQqJmOKJn64xa647pR5FjPbAURqZoO0/oO4IU
  3444. NaxgP4xrOKtb64NpPaBoOKxiQncB1G.U60/CNLQUIqxpQaBZCW/VR5FVMqUUMG/i
  3445. NLQUQqxpQaBZ64BdR43oOKxi65Fj65FcOLAUQaJXPr7Y1G.U60/CPrFZQncUQqVj
  3446. Rm/nPqpZ64tjR4Jn643WPrJo65FcOLAUOKtYOLNdN5JVP.oU60.UHaJr62tjR4Jn
  3447. CW/VN4EUMG/iNLQUPaxoNG/mNKBjQaEUR4wUR4VdQm/mNKBjQaEU85ZjRG/XMKsU
  3448. O43qNG/VPbYB60.U60.U60.U60.U60/iRKpWNL6UPqMUPaxoNG/mNKBjQaFn90/W
  3449. RLEUNK3XO0/iPrEUQaJXPr7Y64Zn64ldPKZoNKEB60.U60.U60.U60.U60/oPm.n
  3450. AW/fMbZoNLAd1G.U60//N4EUHLJgR4ZhNKFdMHcUMKFY642UP4ZiOm/oPm/VPbYU
  3451. R5ZkNG/jNW/hRKloOKpZN4ZV64NdP4IB60.U63BpMapdR5FZQXcUQqVjRm/oO4IU
  3452. QrJWPKZoR4Jm90/jQW/gOKtf65Fj642UQrJWPKZoR4Jm1G.U60//PaBZQrFjQW/7
  3453. PbFZQaJnR1cUQqVjRm/jQW/gOKtf65Fj642UQ4JmQqxi65RdR4UUOKtoNL7ZQrEB
  3454. 60.U60.U60.U60.U60/dPW/oO4IUMKtXNLBoPr7n64xa65FcOLAUOKtYOLNdN5JV
  3455. P.oU60.UF4JnMqJiN4JiR0/7PbFZQaJnR1cUQqVjRm/jQW/gOKtf65Fj642UQ4Jm
  3456. Qqxi65RdR4UUOKtoNL7ZQrEB60.U60.U60.U60.U60/dPW/oO4IUN4JnMqJiN43i
  3457. R5AUPqMUR4VdQm/dPaFdRaZYRK3g1G.U60//N4EUEKldMLAu643YN0/gOKtf65Fj
  3458. 643i643gOK3n64NjQW/oO4Zn64ZiN4ZqOKFpMKkB60.U623YN0//QrBjMqZVR4Zj
  3459. PXcUMKFY64ldPagUR4wUMKtjR4VZQW/dPaFdRaZYRK3g65FcMLEUO43n643i1G.U
  3460. 60.U60.U60.U60.UMLBnPqBdMLFdPqsURqZoO0/oO4Zn64ZiN4ZqOKFpMKkB1G.U
  3461. 60.U62NdPa3gP5Yg643iSG/jR4VZQW/5FIF1HooUOKtaPr7hMLFdPqsUOKsUR4VZ
  3462. 657ZMqxmN0/rOKlg643kQ4JVQW/WNKljRm/oO4IUMbJoR4xiQmsUJ4VZ64lVQrEU
  3463. OKtaPr7hMLFdPqsURqZgP0/WNG/oO4IUN43oNG/VPaEUR4ZhNG/oO4Zn657ZMqxm
  3464. N0/rMLAUP43nR4JY64BcMKtbNKEU84Za65FcMLEUOKtaPr7hMLFdPqsUOLAUOKsU
  3465. R4VZ657ZMqxmN0Yi1EqZ62N/HIZAKG/GNKBjQaFn1G.U60.U63FcNG/oPr.UPqMU
  3466. R4VZ65RdPaFjRm/bOLNZQm/oRqwUMbJoR4xiQm/oO43o64FpQ4ldMq3oNG/oO4IU
  3467. EqVdP4FmNKsUMKtY62ZiN4JsmG/XPqphMKtYQm/dPW/oO4IUJaZZRm/BNKtp9UoU
  3468. 60.U60/IO4IUNaZmQrEUQqJXR4ZjPW/gOLBoQm/oO4IUO5JnMa3iN0/VPaEURqZa
  3469. NG/aPr6UR4VdQm/aMKpdP5Yi63ZjRG/XMKsUMqldMqgUNKZoO4Jm64tVPKIUR4wU
  3470. QqJZ65FcNG/7HYF7JYZ2JI3A657ZMqxmN0/aPr6UR4VVR0/kNL7nPqsi62Za65Fc
  3471. NG/kML7ZPbFn64xa64JdR4VZQW/nQ4xpQqIUOLAUOqtjRmkUR4VZSG/rOKlg643g
  3472. QqwUMaIUMG1GI43mNKtoQxAUMbJoR4xi9W/1P4ZXOm/oO4Zn647pR5FjPW/oPm/n
  3473. NKIUR4VZ62N/HIZAKG/mNKBjQaEUPqMUR4VVR0/kNL7nPqvJQm/kML7ZPbFn9UoU
  3474. 60.U63FcNG/iNLVo65BZMrFdPqsUOLAURLBZN0/oPm/ZPbFZQW/dPaNjQapVR4Zj
  3475. PW/VMaxpR0/oO4IUN43oNG/VPaEUQ4lVMqIUNaxm65FcNG/hML7mOK3bNG/ZRaJi
  3476. R0sUJ5Rj647pR5FjPbAUP4Jo65Fj64JiR4Jm64tjR4Jn643WPrJo65FcNG/hML7m
  3477. OK3bNG/jQW/VR5FVMqUUMG/nPrJmMqIUNaxm65FcNG/dPaNjQapVR4ZjPWsB60.U
  3478. 60.UJ4VZ64tZS5EUQqJXR4ZjPW/gOLBoQm/VP4kUMqVdP4FmNKsUOKsUR4VdQm/a
  3479. MKpdP5Yi62NjQW/ZMKBc64BcOKlY65FcNG/oMK7gNG/rOKlg64VVRaIUR4VZ64tV
  3480. PKIg65FcNKZm65BZS0kUMKtY65FcNKZm647dQbFcN43oNGsUKKxp64BVPW/XP4ZX
  3481. Om/oO4IUPa3hNG/oPm/nNKIUR4VVR0/XO4ZgNBJn62ZCF2ZKGIFJEIkUQaJXPr7Y
  3482. 9W/7NW/oO43o64BcOKlY64Zn65FcNG/nQ4xpQqIUOKsUMKtt64NVPKZgSGkUR4VZ
  3483. 65RdP4kUMaIUMG1GFa3hOKltom/gOKtf64Zi65FcNG1GH4ZiOxAUMqxgRKpi9W/N
  3484. PrIUMq3i64BgOKBf65FcOLAUP4ZiOm/oPm/qOKJn65FcMLEUFY3BGIlN637ZMqxm
  3485. N0sB60.U60//NbFZQW/oO4IUNa3hOKlt65FVMalZ643mNG/oRqwUMbJoR4xiQm/o
  3486. O43o64BVPW/WNG/pQqJY65Fj643oR43XO0/iNLQUMqVdP4FmNKsUPr6UN4JoMKBc
  3487. 65FcNG/XRL7mNKto64BcOKlYQaJi9UoU60.U63FcNG/iNLVo65BZMrFdPqsUOLAU
  3488. RLBZN0/oPm/YOLBkP43t643iN0/oPm/ZPbFZQW/aMKpdP5YUNLNZPbFn9W/7NW/t
  3489. PrIUP4JVQasUQqxhNG/iNLQUNa3hOKlt64JqNKto90/tPrIUMq3i64BgOKBf65Fc
  3490. NG1GELFoMKBc62tZRm/3RaJiRBAUMbJoR4xi65Fj643YN0/oO43o64FVR42UR4wU
  3491. R4VZ657ZMqxmN0sUFLNZPbFn65RdP4kUML/kNK3m643n647pR5FjPbAi63ZjRG/X
  3492. MKsUMqldMqgUR4VVR0/WRLFoPqsUR4wUQqJZ64FZR43dP5AU84FVR4Ig65/gMKBZ
  3493. QmkUPaxoNLAg64JoMmsd643WPrJo65FcMLEUNLNZPbEi1G.U60.U63FcNG/WPrFo
  3494. PqoUQqJXR4ZjPW/jNW/4EIp7H3YUQaJXPr7YQm/cMLAUMG/nNL7dNLAUPqMUMbJo
  3495. R4xiQm/rOLFc65FcNG/aPqlgPrRdPaQUNbJiMrFdPqtnCUoB60.U62tZRm/HPrJm
  3496. MqIu643oR43XO0/V64tZRm/nPrJmMqIUMqZoMLFdPqsUR4wUR4VdQm/mNKBjQaEB
  3497. 60.U62tjR4JnCW/nO4xr65BjPKIUPaxoNLAUMK7jRLEUR4VdQm/aMKpdP5YB60.U
  3498. 62tZRm/CPrFZQncUMKFY642UPaJr64tjR4IUQaJXPr7Y65Fj65FcOLAUQaJXPr7Y
  3499. 60VtPrIUMq3i64VVRaIUMKtt1G.U60.U60.U60.U60.UPbJhMaJm64xa64tjR4IU
  3500. QaJXPr7YQmkUMbJo64JVMqUUPaxo657ZMqxmN0/dQm/gOKpdR4JY1G.U60.U60.U
  3501. 60.U60.UR4wUAn6UOq7tR4Jn8EoU60.UEKFY62ppP5FdPKJYOK2u643YN0/V64ld
  3502. PagUR4wUMKtt65FtQ4IUPqMUPLJgR4ZhNKFdMG/aOKlZ1G.U60/HRK7hOLFoNL6u
  3503. 65BcPrQUR4VZ65BpMapdR5FZQWkUPr6UP4ZiOm/oPm/V65BpMapdR5FZQUoB60.U
  3504. 60.UFaZiMKlgSGkUMKtt64xoO4Jm62R3F2BDHG/dPaNjQapVR4ZjPW/dPW/oO4IU
  3505. QaJXPr7Y65RdP4kUML/kNK3m647ZP4xr65FcNG/WRLFoPqtn9W/IO4IUP43nR0/d
  3506. PaNjQapVR4ZjPW/rOKlg647Z65FcNG/YMLFZ643iN0/oOKpZ65FcOLAUQaJXPr7Y
  3507. 65RVQm/gMLBoNKEUMqVVPaRZN0.cOKMUR4VVR0/dPaNjQapVR4ZjPW/dQm/dPW/o
  3508. O4IUQaJXPr7Y8GsB1OIUG2J/F2JG637ZMqxmN.oU60.U60/IO4IUG4JVN4Jm637Z
  3509. MqxmN0/dQm/nOKpkP5YUN4ZnQ4lVSKJY64Zi642UQqJmOKJn64xa64JYOLFdPaQU
  3510. NaZZP4Fn9W/NPrIUMq3i64pVOqIUMKtY64BcMKtbNLAUSKxp65RVPbEU85BZNG/6
  3511. FI32FJ6UIaJXPr7Y64NjQW/oO4IUPKJVPaZiNrAUPqMUPKxnR0/jNW/oO4IUNaZZ
  3512. P4Fn8GsUI57jMa3WP5YUR4VZ64xiP5YUR4VdPaRn65ZjRG/hOKRcR0/XO43iNqIU
  3513. ML7Z65FcNG/aOKlZ64tVPKIUMKtY65FcNG/cNK3YNL6UPaxoNLAi1EqZ63BDJJ71
  3514. FG/GNKBjQaFn1G.U60.U63FcNG/aOL7nR0/nNKBoOKxi64JiR4JmQm/YNLFVOKln
  3515. 643WPrJo65FcNG/nPrJmMqIUQrJXO0/VQm/VRLFcPr6g65FdR4lZ90/VPaEUQ5JW
  3516. P4ZnO4Jm9W/NPrIUMq3i643gQqwUMKFY642UP4ZiOm/oPm/V6373I2xHGJFDIZYU
  3517. IaJXPr7Y65RcOKBc64FZNaZiNLAURqVZQaIUR4VZ65BjRL7XNG/dQm/nR4xmNKEi
  3518. 62NdPa3gP5YUSKxp64BVPW/VN4EUPaxoNLAUMK7jRLEUR4VZ65BjRL7XNGkUNqZq
  3519. NG/V64BVP4kUPbJhMaJm90/VPaEUQr/ZMqZaSG/oO4IUR5ZkNG/jNW/nPrJmMqIU
  3520. 82pZN4ZV63FtQ4Id9W/IO4IUoZBcPr7o63FdR4lZom/dQm/pQqJY65Fj64JiR4Jm
  3521. 643i643WMb7ZRaZVR4JY65FdR4lZ9W/IO4Zn65FdR4lZ65RdP4kUMaIURLBZN0.c
  3522. OKMUMLNVOKlVMalZ8G/rO4Ji64BdR4ZiNm/oO4Zn65BjRL7XNG/dPW/VPaxoO4Jm
  3523. 657ZMqxmN0sB60.U60.UJ4VZ64tZS5EUQqJXR4ZjPW/bOLNZQm/dPaNjQapVR4Zj
  3524. PW/VMaxpR0/rO43o64BVPW/WNG/aPrJiN0/dPW/oO4Zn65BjRL7XNG/VPaEUPaxo
  3525. NLAUMK7jRLEUR4VZ65BjRL7XNG/YMLFV9UoU60.U60/IO4IUP43nR0/nNKBoOKxi
  3526. 64BVPW/WNG/pQqJY65Fj64JiR4Jm64JsMqJmQ5Fn64NmPqoUR4VZ65BjRL7XNG/j
  3527. QW/gOKtf65Fj64ppP5FdPKJYOK2UPq7eNKBoQm/nRKBc643n65BXMKtiNKEUOKpV
  3528. NqJn64NmPqoUR4VZ65BjRL7XNGsB60.U62NdPa3gP5Yg65FcNG/YMLFZ643iN0/o
  3529. OKpZ65FcOLAUQaJXPr7Y65RVQm/gMLBoNKEUMqVVPaRZN0.cOKMUR4VVR0/dPaNj
  3530. QapVR4ZjPW/dQm/dPW/oO4IUQaJXPr7Y8G/rOKlg647Z64FdQr/gMLZZN0sB1OIU
  3531. IYJEHpB7J2xGKG/GNKBjQaFn1G.U60.U63FcNL7Z643mNG/aOKJgN5AUR4wUNKto
  3532. NL6UR4VZ64tVPKIUMKtY643YN57ZQrAUPqMUR4VZ657ZQ4xnOLFjQbYUPr6UPqMU
  3533. QqxhNG/gPqBVR4ZjPW/rO4JmNG/nPrJmMqJn643mNG/nR4xmNKEi63ZjRG/XMKsU
  3534. MKlnPm/ZPbFZQW/iPrFZQm/VMaxpR0/oO4IUQaJkPrBdR4xmSGsUJ4VZ64FVR4IU
  3535. MKtY65FdPKIUR4VdQm/mNKBjQaEURq3n64lVQrFZN0/XO43iNqJY60VdNW/oO43o
  3536. 64ZiNaxmPK3oOKxi64Zn64Zi65FcNG/mNKBjQaEd65RdP4kUMaIUN4ZnQ4lVSKJY
  3537. 643iN0/oO4IUNKtY9UoBdG/HJI7BGJFIFJ6UIaJXPr7YQkoU60.U60/IO4JmNG/V
  3538. QaIUNaZZP4Fn65Fj64JiR4Jm65FcNG/iMKpZ643iN0/VN4FmNLBn64xa643iSKxi
  3539. NG/VMrFdPaQUMLAUMG/nRK7hOLFoNL6UNaxm65FcNG/bNKtZMKljNqZXMKkUN43o
  3540. MG/dPW/oO4IUFoJ2EoxB62NdP4Ii63FcNL7Z64Zn643gQqwUMG/WRLFoPqsUR4wU
  3541. MKFY64ppP5FdPKJYOK2UP4ZiOrAUQrJXO0/VQm/V65/dMrFpQaIUPqMUR4VZ65Bp
  3542. MapdR5FZQWsUJ4VZ64FVR4IUMKtY65FdPKIUR4VdQm/mNKBjQaEURq3n64lVQrFZ
  3543. N0/XO43iNqJY60VdNW/oO43o64ZiNaxmPK3oOKxi64Zn64Zi65FcNG/mNKBjQaEd
  3544. 65RdP4kUMaIUN4ZnQ4lVSKJY643iN0/oO4IUNKtY9UoBdG/HJI7BGJBHGIxC637Z
  3545. MqxmN5AB60.U60.UJ4VZ63BJEYp7IpB7HosUIaJXPr7Y64Zn65BdPL/gSG/YOLBk
  3546. P43tNKEUMKtY65ZjRG/XMKsUMqVVPaRZ643iSG/aOKJgN0.cQqJZ63BJEYp7IpB7
  3547. HosUIaJXPr7Y64NjQW/oO4IUPKJVPaZiNrAUPqMUR4VZ64NdNKlYQm/dPW/oO4Zn
  3548. 65FtQ4IUPqMUQaJXPr7Y8GsB1OIUHJJAJ2ZBFIF7EG/GNKBjQaFn1G.U60.U62pJ
  3549. H3F7HIJ2GI2UIaJXPr7YQm/dPW/5FIF1HooUFaZgNLAUML7Z65JnNKEUR4wUQrFj
  3550. QaIUNKtXPqFZN0/hRKloOKpZN4ZV64FVR42i62ldOqIUMKlg64xoO4Jm64RZPaJV
  3551. P4xbOKBVP0/VQ5/gOKBVR4ZjPbAg62R3F4ZoEoxB64FjNLAUPaxo65BpQ5/jQbEU
  3552. FKtXPqFZN0/BJIlIGIp3F2Z/637ZMqxmN5Ai62Za65ZjRG/jQ4Ji65BpMqUUMG/m
  3553. NKBjQaEg65ZjRG/rOKlg65BZNG/V64tjR4ZXNG/VMaxpR0/oO4IUNKtXPqFZN0/m
  3554. NKBjQaEUMKtY65BjPKIUOKtaPr7hMLFdPqsUMK7jRLEURqVVR0/YMLFV64Zn64Ji
  3555. MqxYNKEUOKsUR4VVR0/mNKBjQaEi63ZjRG/XMKsUMqldMqgUPqsUR4VZ6B7KOKJr
  3556. 62JiMqxYNKEUF43oMRAUMbJoR4xi65Fj65BZNG.cMKtY64BjQ5Yg64Za64FZQqZm
  3557. NKEd65FcNG/mMLQUNKtXPqFZN0/YMLFV9W/NPrIUQqVjRKlY643YN0/hRKloOKpZ
  3558. N4ZV65Fj65ZjRG/bNKtZMKljNqZXMKkUN43oMG/WSG/VN4FdPaQUP4ZiOrAUR4wU
  3559. PLJgR4ZhNKFdMG/aOKlZQm.cQqJZ62ldPahdPaQUR4wUHLJgR4ZhNKFdMG/4OKlZ
  3560. QmYi1E
  3561.